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Z. INTRODUCTION 

Accurate experimental determination or verification of 

aerodynamic force coefficients (C^and/o r C L > requires 

accurate simultaneous measurements of the forces (or 

2 

accelerations) and the dynamic pressure (q * l/2p U ). 

Comparison with theoretical predictions requires independent 

knowledge of the density ( p) and velocity (U) to establish 

the proper values of the non-dimensional parameters such as 

Reynolds number (Re) and flach number (M). These parameters 

in principle require independent measurement of temperature 

and measurement or inference of viscosity. Under hypersonic 

conditions during the early phases bf re-entry the Mach 

number becomes a secondary parameter while the relevant 

Reynolds number is based on viscosity within the gas layer 

near the vehicle and is only weakly dependent on free stream 

temperature. During the earliest part of re-entry, 

independent knowledge of density is necessary to establish 

the degree of rarefaction generally measured by the Knudsen 

number Kn *= X/L where X is a relevant mean free path and L 

the characteri stic physical dimension (either vehicle size 

for the overall flowfield or entrance dimensions for the 

local behavior at the instrument). 

The Shuttle Upper Atmosphere Mass Spectrometer (SUMS) 

Experiment^ is designed to provide independent measurement 
2 

of q *= 1/2 pU within the high altitude range. When combined 
with information of vehicle velocity, it will provide 
independent determination of upper atmosphere density and 
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coupled to accel erometer data will give the aerodynamic force 
Coefficients within a regime difficult to simulate on the 
ground. The experiment is primarily intended to provide 
information between about BO Km and 140 Km where rarefaction 
effects on the force coefficients are most important for a 
vehicle of the size of the Space Shuttle. It is also a 
regime where information on the atmosphere is relatively 
Sparse as it lies below the altitude traversed by satellites ‘ 
and above that regularly assessed by ground launched 
meterol ogical vehicles. The interpretation of the 
measurements, however, requires an adequate understanding of 
the flowfield around the Space Shuttle within the vicinity of 
the SUMS experiment in order to provide the proper data 
reduction procedure and an assessment of the accuracy of the 
resul ts . 

At sufficiently low altitudes (below about 80 Km for the 
Space Shuttle) , conventional pitot probe measurements can 
provide the dynamic pressure with straightf orward data 
reduction and relatively minor corrections. At sufficiently 
high altitude (above about 150 Km), free molecular theory can 
be used to infer free stream conditions from surface 
measurements. The forces, however, are small and of little 
interest while the measurements require instruments of high 
sensitivity and are therefore difficult. In the intermediate 
range of altitudes where SUMS is designed to provide data, 
the typical molecular mean free path is of the same order as 
the characteristic vehicle dimensions. Figure 1 shows the 


original R>;;; •/< 

OF POOR QUALITY 

variation with altitude of the free stream Knudsen number (Kn 

00 

■ X^D) based on the free stream mean free path X^, and the 

Shuttle diameter D at the location of the SUMS orifice just 

ahead of the wheel well. Note that Kn„« .01 at about B7 Km 

and Kn v * 10.0 at about 136 Km. Intermolecular collisions 

can, therefore, neither be neglected (free molecular theory) 

nor represented by the resultant transport properties 

(continuum theory) over the major portion of the SUMS 

measurement regime. The gas properties at the entrance to 

the instrument are, therefore, dependent on a flowfield that 

can only be determined on the basis of a "molecular" theory. 

In addition to the above "external flow problem", needed 

to establish properties near the surface of the vehicle, the 

entrance region of the instrument is typically either smaller 

or comparable to a local mean fr-ae path. In such 

circumstances, the connection between the gas properties at 

some distance into the internal plumbing and those at the 

vehicle surface, can be very sensitive to the velocity and 

angular distribution of the incoming molecules. This 

requires both a high degree of detail from the "external 

flow" and a local analysis that must assess the molecular 

behavior at the instrument entrance. We shall refer to this 

as the "entrance problem". Figure 1 also shows an 

approximate band of Knudsen numbers for the entrance region 

of the SUMS experiment. Kn _ is based on the mean free path X 

s s 

at the vehicle surface and the orifice diameter (d = .235 

o 

cm) with surface properties fitted between free molecular 

results at high altitude and continuum Newtonian values at 

low altitude. Kn_ is a similar Knudsen number b^sed on 

c 


conditions behind the "entrance" tube with X estimated on 

c 

/ 2 \ 

■free molecular results using Hughes and deLeeuw theory' ' at 
high altitude, with continuum constant pressure results 
applied at low altitude. Note that conditions within the 
entrance tube range from clearly free molecular behavior 
above about 110 Km to transitional behavior near BO Km with 
fully continuum results only approached at the lowest 
altitude of interest. 

The subsequent connection between the properties 
immediately behind the entrance tube and the measurements at 
the mass spectrometer shall be referred to as the "internal 
problem". The analytical procedures for calculating pressure 
profiles through the internal plumbing are well established 
and will be further verified by instrument cal ibration ^ . 

During the preliminary phase of NASA Grant NSG 1630 
(July 1979 to November 1979), the feasibility of examining 
the "external flow problem" for the Space Shuttle nose region 
within the relevant altitude range was established. A 
previously developed Direct Simulation Monte Carlo Computer 
Code (3*4*5) was f ounc i to be suitable as the starting point 
for this geometry and altitude range. Preliminary results 
were obtained at 67, 95, 105, 115 Km altitudes. 

During the subsequent grant periods (November 1979 to 
September 1982) improvements in the modelling of the geometry 
and the molecular interactions have been incorporated in the 
external flow computer code. A number of runs at altitudes 
of 87, 95, 105, and 115 Km have been made to obtain a range 
of the relevant parameters and to provide input information 
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•t the SUMS entrance location. The “entrance problem” has 

been examined both by using published information t 

and a previously developed Monte Carlo code for internal 
/ o \ 

geometries ' ' . Because of the combination of entrance 
geometry (very long tube) and the range of local Knudsen 
number over the altitudes considered, a totally new 
“entrance" computer code had to developed. This code 
provides the connection between the flux information at the 
orifice entrance obtained from the external code and the 
local gas properties behind the entrance tube where the gas 
is in equilibrium with the “cold" walls of the internal 
plumbing. This new code has only been exercised to a limited 
extent, but preliminary results relating the pressure within 
the tube behind the tile to the free stream dynamic pressure 
have been obtained. This information coupled with an 
appropriate calibration of the mass spectrometer provides the 
basis for a viable data reduc^on procedure of the SUMS 
experiment. 

Section IIA contains a brief description of the 
operation of the EXTERNAL computer code (the detailed code 
is attached in Appendix A). Section 1IB describes the 
issues associated with geometric modelling of the shuttle 
nose region and the modelling of intermolecular collisions 
including rotational energy exchange and a preliminary 
analysis of the vibrational excitation and dissociation 
effects. Section IIC discusses the selection of the trial 
runs and presents the major results. 

Section III A contains a brief describtion of both the 


original version and the modified present code (INTERNAL) for 
the entrance problem (Appendix C contains the code listing) . 
Section IXIB contains a disqcssion justifying the selection 

• V 

of geometric, collisional and surface modelling parameters 
used for the trial runs. Section IIIC presents the preliminary 
results and discusses the major effects. 

Section IV presents the conclusions that can be drawn 
from the present study, provides a preliminary estimate of the 
data reduction procedure and suggests future work. 


12. EXTERNAL FLOWFXELD 


The physical properties o-f the gas monitored by the SUMS 
instrument are not those of t?*e free stream but are altered 
both by the intermolecular interactions in the external 
flowfieid and by the combination of intermolecular and 
surface interactions within the entrance orifice and tubing 

leading to the instrument. External flowfieid effects 

can be summarized in terms of the relation between local 
"stagnation" pressure and the free stream dynamic pressure <q 

* l/2pU^) at sufficiently low altitudes. Within the 
"transition" regime of interest (80-140 Km) the gas entering 
the orifice is neither in equilibrium with the surface nor 
simply related to the free stream. The only currently 
available technique for describing the flowfieid within this 
regime and providing sufficiently detailed data on the 
physical state of the gas at the surface is the Direct 
Simulation Monte Carlo Code. 

A. DIRECT SIMULATION MONTE CARLO COMPUTER CODE 

"Monte Carlo" is the technique of using a simulated 
situation and random numbers to generate solutions from which 
information for the real case is then deduced statistically. 
The Monte Carlo approach ranges from being a strictly 
mathematical technique for evaluating the complicated multi- 
dimensional Boltzmann collision integral to a complete 
simulation of a number of molecules, with randomness 
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introduced only in the initial conditions. A modification of 
this latter approach is the one used in the present 
development. It consists of simutaneousl y following a large 
number of particles which yields, to some degree, a "direct 
simulation" of the processes taking place. Because there are 
finite limits on computer sterile space, a modification to 
the direct simulation technique was developed by G.A. Bird 
(Ref. S) wherein the real gas is simulated by several 
thousand "sample" particles populated into cells of the 
sample space considered. For collision calculations, all the 
particles in one cell are used as a representation of the 
local distribution function from which collision pairr are 
chosen at random, but in proportion to their collision * 
probability based on the real gas. This preceding discussion 
applies to a general program incorporating’ the direct 
simulation procedure. A specific computer program for the 
generalized three-dimensional program for axisymmetric bodies 
in a hypersonic multi-fluid flow is described below. 

The program (EXTERNAL) conducts numerical experiments 
with a model mul ti -component gas. The real gas is simulated 
by several thousand molecules which may be thought of as a 
representati ve sample of the many billions of molecules in 
the corresponding real gas. The positions and velocity 
components of the simulated molecules are stored in the 
computer and typical collisions are computed among them as a 
time parameter is advanced. Since the flow is at an angle of 
attack to the body, three position coordinates, three 
velocity components and appropriate internal energy levels 
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must be stored for each simulated molecule. 

The computation of collisions starts at zero time with 
the molecules moving along the flow axis At the required 
freestream Mach number. The body is inserted into this flow 
at the zero time and the desired steady flow is obtained as 
the large-time solution of the resulting unsteady flow. 

The free-stream flow vector lies in thff x-y plane. The 
simulated region is bounded by the x-y plane as a plane of 
symmetry, an outer cylindrical boundary <the axis of the 
cylinder is the x axis), and two planes parallel to the y-z 
plane. These boundaries must be set sufficiently far from 
the body to eliminate interf erence. The simulated region is 
divided into a number of cells which are sufficiently small 
* for the expected change in flow properties across the cells 
to be smal 1 . 

The first step is to generate the initial, or zero time, 

configuration of molecules. The molecules are distributed 

over the simulated region and the velocity components 

assigned are appropriate to a gas in Maxwellian equilibrium 

and moving at the required Mach number. The body is then 

inserted into the flow and the molecules are allowed to move 

and collide among themselves. The move and collide processes 

are uncoupled by computing a number of collisions appropriate 

to a time interval At m equivalent to a small fraction of the 

mean time between collisions, and then moving the molecules 

through distances appropriate to At^ and their instantaneous 

velocities. The distortion produced in the molecular paths 

by this approximation is small as long as At is small 
* in 
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compared with the mean time between collisions, and smaller 
than the typical transit time of a molecule through a cell. 

Since the change in flow properties over the width of 
one cell is assumed small, the molecules in a cell at any 
instant may be regarded as a sample of the molecules at the 
location of the cell. The relative location of the various 
molecules within the cell can then be disregarded. A pair of 
molecules is chosen at random from those within the cell 
under consideration and is retained or rejected in such a way 
that the probability of retention is proportional to the 
relat ive collision probability for the appropriate 
interaction law. When a pair is retained, a typical 
collision is computed between the two molecules and the new 
velocity components and internal energies are stored in place 
of the old ones. 

In general, the relative number ratio of the species of 
molecules in the multi-component gas will differ from unity, 
requiring the computation of different types of collisions. 
There is, therefore, one time counter for each type of 
collision in each cell. For each collision, the correct time 
counter is advanced for the cell by an amount appropriate to 
the collision parameters. The probability of collision, and 
therefore the time advancement per collision, is made 
proportional to the number of molecules in the cell, and the 
relative velocity and cross-sections of the colliding 
molecules. Collisions are computed in each cell until all 
the time counters have advanced through at least a time At 

m 

When this procedure has been carried out for all cells, the 
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overall experiment time is advanced by At and the molecules 

m 

are moved through appropriate distances. 

The set of molecules in each cell changes as the 
molecules are moved and appropriate conditions must be 
applied at the boundaries of the region begin simulated. 

Every boundary is treated as a source of molecules with 
velocity components representati ve of molecules moving in 
thermal equilibrium at the appropriate fraction of the free** 
stream Mach number* (The fractional Mach number is 
determined by the cosine of the angle between the local 
boundary normal and the flow direction.) Any molecule which 
moves outward across any boundary is regarded as being lost 
and is removed from the sample. The plane of symmetry (the ;<- 
y plane) is regarded as a specularly reflecting surface. 
Interactions with the body are also computed. The body 
consists ui a number of conic sections rotated about the axis 
of symmetry. Each section must be separately specified 
according to the coefficients of the defining equation, a 
procedure to be described later in the report. For the 
purpose of computing the momentum and energy transfers to the 
surface, each region of the body can be subdivided into 
smaller sections. Within these smaller sections, the 
following three parameters must be specified: wall 

temperature/gas temperature, energy accommodation coefficient 
for each species, and tangential (momentum) accommodation 
coefficient for each species. 

After the flow has settled down to a steady state, the 
number flux, momentum and energy transfers to the surface are 
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accumulated and used to compute the aerodynamic data. The 
time required to establish steady flow is usually assumed to 
be close to the time required for the free-stream flow to 
traverse several body lengths. The overall number flux, 
drag, and heat transfer coefficients are determined, along 
with their distribution along the surface. 

In addition, it is possible to cpnerate data on the body 
surface which can be used as input to the companion program, 
INTERNAL, described separately. (INTERNAL) computes the flow 
field regime inside an axially symmetric cavity, such as 
might be used for a spacecraf t-borne sensor. The input data 
needed for this computation includes the molecular 
distribution functions present at the orifice to the cavity, 
the orifice being on the surface of the spacecraft.) This data 
consists of velocity and internal energy samples in three 
coordinate directions for all species of the mixture. 

Flow field properties are also computed. Instantaneous 
values are sampled at appropriate time intervals and these 
are t ime-averaged for greater accuracy. Number densities, 
velocities and temperatures are printed for each cell. 

The numerical experiment takes place in a cylindrical 
block: of space whose axis is coincident with the axis of 
revolution of the conic surfaces comprising the test body. 

This space is subdivided into cells in which the flow field 
properties of the experiment can be monitored. Cylindrical 
surfaces concentric with the axis partition the space into 
nested cl indrical volumes, as shown: 
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Finally, planes perpendicular to the preceding planes and 
passing through the axis, called radial planes, divide up the 
rings in the azimuthal direction, producing cells which are 
wedge-shaped pieces of rings. The geometry is more easily 
visualized if one considers a trace of the cell conf i gurati on 
in a radial plane. A typical planar trace is shown: 
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The axis shown is the axis of symmetry of the sample space 
(and of the test body). This axis is considered to be the x 
axis. When this direction must be specified in vector 
algebra computations, a unit vector i is assumed in the x 
. direction. 

Assume that the planar trace shown above is bounded by 
the x-axis as described and by the -y axis. This plane is at 
0® azimuth angle and is called the zero plane. It is the 
plane normally depicted when describing the sample space. 

A unit vector j points in the +y direction. The z 
direction points out of the paper, and in this direction is 
the unit vector E, which is given by T x j. 

The flow velocity is in the direction T cosot + j sinoi, 
where a is the defined angle of attack between 0° and 90°. 
Since the flow is thus in the xy plane, there is symmetry in 
the z direction. That is, any condition in effect at +z is 
also in effect at -z . Thus azimuth angles need be specified 
only from 0 0 to ISO® where 0° is in the -y direction, 90° is 
in the +z direction, and 180® is in the +y direction. 
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Now the fact is that the gas density in the vicinity of 
the stagnation point of the body can become many tens of 
times higher than the density far from the body. It is thus 
desirable to use small cells in this region while the cells 
are larger in the regions of relatively low density. This 
partitioning of cell sizes is accomplished in two ways. 

First, the rings can be divided azimuthally into two 
different sizes. This is done by specifying an angle, called 
THETAZ, and the number of wedge divisions both below and 
above this theta plane, called NWEDGE ^ and NWEDGE 2 ■ ("Below 
the theta plane" means azimuth angles between 0 0 and THETAZ, 
and "above the theta plane" means azimuth angles between 
THETAZ and 180°.) 

Second, the cells below the theta plane can be 
subdivided in the axial and radial directions down to second 
and then third level cells. In the 0° radial plane 
representation of the sample space, this would appear as 
large rectangles being sub-divided into small rectangles. 

In this way, the sample space geometry can be tailored 
to the conf i guration of the test body angle of attack to the 
flow. The following examples are presented to clarify the 
above statement. Assume for all cases that the test body in 
question is a short cylinder. As explained in the section 
TEST BODY, the cylinder cannot have flat end faces, so the 
ends are cones with apex angles of about 175 °. 

a) For 0 0 angle of attack, the flow impinges 
directly on the left face of the cylinder. 
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It is thus desirable to have, if possible, 
constant azimuthal angles since there is no 
angles since there is no azimuthal assymetry. 

One possible configuration is therefore: THETAZ * 
180 ° NWEDGE ^ « 6, NWEDGE 2 ■ 0 (producing 30° 
wedges) , and the axial and radial directions 
can be subdivided any convenient way, producing 
a zero radial plane that looks like: 


ft**' 
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In this type of geometry, all radial planes 
are the same as the zero plane. 


For 90 0 angle of attack, the flow impinges on 
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the curved cylindrical surface of the cylinder 
at the bottom. It is thus necessary to have 
small azimuthal hedges on the lower portion of 
the cylinder at and near the stagnation point, 
while larger wedges will suffice on the upper 
portions of the body (in the wake of the flow). 

For instance, an acceptable set of parameters 
is: THETAZ *=60°, NWEDGE 1 - 3, NWEDGE 2 « 3 
(producing 20° and 40° wedges) , and again the 
axial and radial directions can be subdivided 
in any convenient way. Any radial plane up to 
60° looks like the radial plane in example 
(a), with the body and smaller cells centered 
about a-a, while any radial plane between 60° 
and 180° looks like: 



Ft** 
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c) For *n angle of attack between 0° and 90°, 

the configuration looks generally like that of 
example <b)). In this case, however, the theta 
plane generally should be at an azimuth angle 
which is relatively low (near 60 ®) for a high 
angle of attack <45 « - 90 0 ) and relatively high 
(near 120°) for a low angle of attack. 

Because the test body is located on the axis of the 
cylindrical sample space, for each particle that interacts 
directly with the body, many more do not. In the interest of 
minimizing the program running time necessary to permit a 
statistically sufficient number of particles to strike the 
body, the computation makes use of zonal weighting factors. 
That is to say, each particle in the sample-space in real ity 
represents one or more particles, the actual number depending 
upon the weighting factor of the zone in which the particle 
currently exists. 

Up to five cylindrical boundaries are selected across 
which the zonal weighting factors change. These boundaries 
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are specified in terms of the number of first level cells 
between the axis and the boundary. The change in the zonal 
weighting factor across each boundary can be given byi 


tF « 
n 


LD n + l + LD n 

.—j 

n lp. 
j-o 3 


n*l $ 2 f » . . 5 


where the LD values are the number of first 
level cells between the axis and the cylindrical 
boundaries; and LFg=l, LD ^=LD g=LD^»NH were 

This equation is the result of having the zonal 
weighting factors defined in such a way that they are equal 
to the ratio of sample space volume in the zone above the 
weighting-f actor boundary to the sample space volume in the 
zone below the weighting factor boundaries. The importance 
of the region near the axis can be emphasized by choosing LF 
values larger than those given above. 

The sample space is populated with a distribution of gas 
molecules. Each molecule is assigned a velocity, a rotational 
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energy and a position, such that the sample space is 
uniformly (albeit in a random manner) filled with a gas in 
thermal equilibrium and flowing at the required Mach number. 
Each molecule is assigned a number corresponding to its zonal 
weighting factor. The molecule thus represents in actuality 
a number of molecules (including itself) equal to the zonal 
weighting factor. While the molecule moves in such a way as 
to stay within the given zone, its weighting factor does not 
change. If it crosses a weighting factor boundary while 
moving in toward the axis, a number of molecules is added to 
the distribution. The number of molecules added is equal to: 

old weighting factor , 
new weighting factor 

For instance, assume that above a boundary, the zonal 
weighting factor is 6, and below the boundary it is 3. Hence 
6/3 - 1, or 1, molecule must be added to the distribution 
when the molecule crosses the boundary. This is clearer if 
one considers that above the boundary, the molecule 
represents a total of 6 molecules. When the molecule drops 
below the boundary, it can only represent 3 molecules, so 
another molecule must be added to the distribution to 
represent the other 3 molecules. 

The added molecule(s) is (are) assigned. the same 
position and velocity components as the original molecule. 
While this does not approximate true kinetic theory at first, 
in practice the positions and velocities are soon randomized 
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by collision processes. 

On the other hand, if a molecule crosses a weighting 
factor boundary while moving away from the axis of the sample 
space , there is a probability that it must be dropped from 
the molecular distribution. The probability is given by 

1 - old weighting factor 
A “ new weighting factor 

The random number generator is used to generate a 
histogram of disappearing molecules to match the actual 
probability of di sappearanee. The whole idea behind using 
weighting factors is to increase test body - flow field 
interaction in a given running time. Thus, when body surface 
quantities are accumulated (like flux, energy, momentum, 
heat) , they are accumulated in terms of the weighted number 
of molecules striking the body. This is particularly 
important if the body exists in two er more weighting cosies, 
so that surface quantities in different cones can be 
correctly compared. 

The program is set up to handle a test body consisting 
of a sequence of connected conic sections rotated about a 
common axis of symmetry. Some typical surfaces which can be 
considered without modification are sections of spheres, 
cones, cylinders, ellipsoids, hyperboloids, and paraboloids. 

A disc perpendicular to the symmetry axis cannot be handled 
without modification, since it represents a multi-valued 
function in r. Cones with very large apex angles (*’180®) are 
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used in place of discs. The procedure used to specify body 
surfaces is to generate a form of the standard equation of 
the surface in question, substitute into this equation the 
actual values of the constants, and reduce the standard form 
to the following type of equation! 

Ax^ + + Cx ♦ D “ 0 

where A, B, C, and D are numerical values 

These coefficients are used as input data to the program. 

The program requires additional parameters for each conic 
surface. Each surface can be axially divided into several 
segments for the purpose of accumulating the body surface 
parameters like flux, heat transfer, etc. The x-coordinate 
on the right side of the segment is required as data. (The 
segments are divided azimuthally by the same radial planes 
that partition the sample-space.) In addition, the 
temperature, energy accommodation coefficients and tangential 
accommodation coefficients for each species are required for 
each segment. The temperature of a surface is normalized by 
the free-stream temperature. 

The tangential accommodati on coefficient specifies the 
fractional part of incoming tangential momentum that is lost 
to the surface. For the reflection model used in this 
program, this also represents the fractional part of the 
molecules colliding with the body surface whose collisions 
are diffuse. The remainder collide specularly. 

The energy accommodation coefficient specifies the ratio 


of the net molecular energy flux absorbed by the body to that 
energy which would be absorbed if all re-emission were 
appropriate to equilibrium at the surface temperature of the 
body. This coefficient together with the tangential 
accommodation coefficient and the surface temperature 
determines the effective temperature of the diffuse component 
of the re-emitted molecules in the reflection model used in 
this program. 

It is also possible to collect velocity samples of the 
colliding molecules on a restricted number of surface 
segments to generate distributions for the internal flow 
program. For this prupose, molecules that collide with the 
body surface are considered in two classes. The class called 
"UNCOLLIDED" consists of "f ree-stream" molecules.. That is, 
these molecules have not previously collided with the body 
surface or with any other molecules other than "f ree-stream" 
molecules. The other class, called "COLLIDED", consists of 
molecules which have previously collided with either the body 
surface or with other "COLLIDED" molecules. 

Appendix A contains the full listing of the computer 
code in Fortran IV. The main program consists of dimensioning 
statements coupled to a fiarly detailed description of the 
input cards (using the NAMELIST input) . The main operating 
program is called RUN which in turn calls the appropriate 
subroutines. Figure 2 shows a schematic of the flow chart for 
the operation of the Program EXTERNAL. 
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B. Modelling of the BUMS Problem 


/. Geometric Modelling 

The computer code described above requires an 
axisymetric geometry of the body, although the flow vector 
can be at an arbitrary direction. The Space Shuttle nose 
geometry in the vicinity of the SUMS orifice has to be 
Modelled by an equivalent body of revolution. A paraboloid 
of revolution around as axis inclined at about 6 e with 
respect to the shuttle axis models the lower surface cross 
sections of the body both in the symmetry plane and in the 
transverse direction reasonably well. Figure 3 shows a 
sketch of the actual and modelled Space Shuttle nose 
geometry. This model will be called the parabola model, and 
the flow direction of 32* with respect to the axis will be 
used to represent the 40° angle of attack of the Space 
Shuttl e. 

Both for the purpose of benchmarking the test runs 
against continuum results and to achieve better resolution an 
alternative axisymmetric flow model was examined. This model 
consists of a hyperbola rotated about the flow velocity 
vector passing through the stagnation point. Figure 4 shows 
a typical cell geometry for this model. This is also the 
model used by Professor ' Clark Lewis for his continuum 
calculations. As will be seen from the results in the next 
section the latter (axisymmetric) model is questionable as a 
representation of the flow in the stagnation region of the 


Space Shuttle, at least at higher altitudes. 


2i Modelling of Cvobb Sections 

In order to avoid uncertainties associated with the 
choice of hard sphere cross-section to best model the 
"typical" collision/ an energy dependent inverse power law 
cross-section collision code has been incorporated in the 
program. The power law exponent and reference cross-section 
is chosen to provide the best fit to the viscosity 
temperature dependence over the range between the wall and 
stagnation conditions which represents the energy range of 
the important collisions. Figure 5 shows that viscosity can 
be matched to within a few percent over the relevant range 
with a single choice of exponent and reference conditions 

Using the exponent of N=. 552 and a reference temperature 
of 1000°K four axisymmetric cases of a hyperbola at 0° have 
been run to simulate 87KM, 95KM, 105KM and 115KM altitudes. 

Since in these cases rotational energy was not included these 
represent a ficticious monatomic gas of y=5/3. Figure 6 shows 
"smoothed" temperature profiles normalized to the free stream 
temperature. Note that at the two lower altitudes a relatively 
"flat" Rankine Hugoniot (R.H.) region exists, while at 105KM 
R.H. conditions are barely reached and at 115KM the temperature 
peaks at about 70% of R.H. temperature. The shock layer in all 
cases is, however, very much thicker than the inviscid result 
based on nose radius R^. Note, however, that the hyperbola is 
very blunt and it is not clear that the nose radius is the appro- 
priate dimension or that this models properly the flow about the 
Space Shuttle Nose. 
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3. Rotational Energy Exchange 


On the basis of previous experience in modelling 
rotational energy exchange in Reference 4 the model of Larsen 
and Borgnakke was chosen as appropriate for the blunt 

geometry under investigation. The External Flow Program was 
therefore re-coded to include an arbitrary number of internal 
energy modes but with a single relaxation time related to the 
parameter <J> which ranges from <£=0 representing no exchange to 
*1 simulating maximum available exchange at each collision. 

An indication of the effect at 115KM is shown in Figure 7 and 
8 for the most rapid energy exchange (<f> = l). Note that, as 

expected, the peak temperature is lower for the Y*=1.4 case 
because some of the energy goes, into rotation. Also note 
that significant non-euqi 1 i brium exists between translation 
and rotation even at this maximum c t ergy exchange rate 
corresponding to The effect on surface properties shown 

in Figure G is virtually non-existent for the shear, but 
noticeable on the heat flux and pressure. 


4. Preliminary Attempts mt Comparison with Continuum 
Resul ts 

Some preliminary comparisons of both the monatomic (y 

*1.667) and diatomic <y*1.4> runs for the axi symmetric 

hyperbola were made with continuum results provided by Prof. 

C.H. Lewis based on continuum theory , Among the 

surface properties only the pressure distribution agreed 

reasonably well. Since this is the property least sensitive 

to detailed flow field behavior the agreement is not a very 

sensitive test. A typical comparison is shown on Figure G. 

A comparison of heat flux is not shown on this figure as it 

is not the same scale at this high altitude. The continuum 

result of Prof. Lewis gives the stagnation point heat 

3 

transfer coefficient C *Q/l/2pU *2.8 which is physically 

n 

unrealistic. At 105KM the continuum heat transfer 

coefficient C„ is below one but still appreciably above the 
n 

Monte Carlo results. At 95KM the Monte Carlo results give 
heat transfer that is almost twice as large as Prof. Lewis's 
result for ^1*4. , 


The most significant discrepancy between the continuum 
and Monte Carlo results arises in the shock layer thickness. 
While the definition is somewhat arbitrary, a comparison of 
the subsonic region in the vicinity of the stagnation point 
does give a good indication of the extent of influence of the 
"downstream" portions of the body. Figure 9 shows the Monte 
Carlo results for the M=1 line at 115KM together with the 
shock line from C.H. Lewis. This discrepancy led to a whole 
re-exami nation of the modelling of the nose geometry. 

5. Re-examination of Geometric Modelling 

Since the subsonic region appears to extend to the 
"shoulder" wherever the hyperbola is terminated as shown in 
Figure 9, the applicability of the hyperbola model becomes 
suspect, at least for the Monte Carlo calculation where 
upstream influence cannot be eliminated. In order to further 
assess the effect of the geometric model on the results a 
comparison of the hyperbola at 0 0 to the parbola at 32 ° are 
presented in Figures 10 and 11. It can be seen from Figure 

10 that the subsonic layer in the vicinity of the SUMS 
orifice is significantly different in the two cases. Figure 

11 shows that while the pressure is not dramatically affected 
by the model the heat flux and shear are significantly 
altered. On the basis of these results it was concluded that 
while the runs for the hyperbola may indicate trends they are 
neither representati ve of the SUMS region on the Space 
Shuttle nor good candidates for benchmarking with the 


continuum results. All subsequent runs were therefore made 
using the geometric model of a parabola at 32° angle of 
attack. 

6. Inelastic vibrational Excitation and Dissociations 

Because of the high energies of collision between free- 
stream and reflected molecules, inelastic collisions 
(certainly vibration and dissociation) are in principle 
possible. At the highest altitude the number of such 
collisions is expected to be insignificant because the cross- 
sections are low enough to that a typical molecule will reach 
the body with a negligible probability of a previous 
„ vibrationally exciting or dissociating collision. At the 
lower altitudes B7 to 95Kn» the number of collisions suffered 
by a typical molecule before reaching the body surface is 
measured in the tens or hundreds and therfore inelastic cross- 
sections that are only a few hundredths of the elastic and 
rotational ones may produce significant effects. The detail 
needed to properly model these collisions in the Monte Carlo 
Programs far exceeds the available experimental information, 
which primarily gives overall rate constants. An 
investigation of the best combination of analytical and 
empirical information was initiated early within the grant 
period. A theoretical attempt to couple low energy 
vibrational excitation experimental information to the highly 
non-equilibrium high energy collisions through theoretical 
work was initiated. Appendix B contains a Master's thesis 
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presenting the formalism and giving the initial results of a 
theoretical formalism. Based on those results, coupled to 
some limited experimental data, a method for determining the 
probabilities of specific outcomes in individual collisions 
in the Monte Carlo Programs can be developed. The increase in 
computing times, however, may make the feasability of using 
such a code, for anything but benchmarking, prohititive. 


C. MAJOR RESULTS FOR EXTERNAL FLOW 


The primary effort during the grant period up to 
February 1981 Mas spent in developing the code for external 
flow and establishing the appropriate geometry to model the 
region of the Space Shuttle in the vicinity of the SUMS 
experiment. The major results to that date are presented in 
the renewal proposal for the period February 1 , 1981 to July 
30, 1982 which also served as a progress report on the 
previous grant period. We will only summarize those 

results here and update them on the basis of additional 
external flow computations. 

A representation of the shuttle nose geometry as a 
paraboloid of revolution around an axis 8° from the actual 
shuttle axis (Figure 3) was found to adequately model the 
windward side of the shuttle in the vicinity of the SUMS 
orifice. Computatons for both this model at an effective 
angle of attack of 32° and an alternative axisymmetric flow 
about hyperboloid model centered on an axis through the 
nominal stagnation point, demonstrated that the paraboloid 
model at angle of attack is necessary to adequately model 
conditions near the SUMS orifice. The typical body and 
computation cell geometry is shown in Figure 12. 

A resonable indication of the flowfield can be obtained 
by examining density contours or Mach number contours about 
the body. Figure 13 shows the sonic lines and the M = 5 
lines indicating approximately the outer extent of the 
“shock'' layer at 95 Km and 115 Km, within the plane formed by 
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the velocity vector end the axis of the modelled paraboloid* 
Note the greater "shock" layer thickness at the higher 
altitude. Also note the fact that even at 95 Km, the shock 
layer is a large fraction of the local body dimension such as 
nose radius. The "shock” thickness is a major portion of the 
entire "shock layer" casting doubt on any calculation 
incorporating a thin "shock" assumption. Figure 14 shows 
some density contours on the "windward" side of the body at 
95 Km altitude as well as the sonic line. Note the rather 
constant density rise towards the body with no discernible 
separation between "shock" and "boundary layer." Also shown 
are estimates of the stagnation streamline and another 
streamline along which the velocity only goes slightly 
subsonic. Note the rather gradual turning along the latter 
streamline and the rather diffuse nature of the shock layer 
even at this altitude where the nominal free stream Knudsen 
number is 0.04. In order to give a better picture of the 
three-dimensional aspect of the flowfield, a sketch of one- 
half of the paraboloid and some contour plots of h * 1. and M 
* 5. iin^ffi are shown on Figure 15. 

Information in Figures 13 through 15 gives some 

indication of the nature of the flowfield in the vicinity of 

the SUMS orifice. The ultimate objective, however, is to 

establish properties at the vehicle surface. Figure 16 shows 

the variation of two surface fluxes (normal pressure and heat 

flux) at 95 Km along the four cross-planes shown in Figure 

2 

15. The normal pressure p g normalized by l/2pU (C = p /l/2p 

2 P 8 
U ) is shown on the right side of the figure while a heat 
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transfer coefficient (C^ - C/i/2pU^ > is shown on the left. 

Figure 17 shows the variation versus angle in the cross-plane 

nearest the one containing the SUMS orifice, and compares the 

results to some theoretical and semi-empirical predictions. 

The pressure coefficient, as expected, lies approximately 

between the free molecular <C (F.M.)> value and the modified New 

P 

tonian (C^iNEWT) value, up to about 90°. (Note that at 90° 

around the axis the local angle ( 8> between the velocity 

vector and the surface normal is approximately 64° at this 

cross-plane.) The heat transfer coefficient lies 

substantially below the free molecular value. It is also 

compared to a semi -empirical extrapolation of experimental 

results of stagnation heat transfer on hemispheres presented 

in reference 13. Direct comparison is clearly dubious due 

to the substantially different body geoemtry and the 

implicit assumption of totally local behavior contained in 

the cos£ variation with local angle of the surface to the 

velocity vector. Some additional degree of uncertainty is 

contained in the choice of "body size" that is used to 

2 

evaluate the correlation parameter K* . 

The ultimate objective of the external flow 
calculations is to provide information on the properties of 
the gas entering the SUMS orifice. It is the potential non- 
equilibrium nature of the entering distributin of molecules 
that is responsible for the difference between the surface 
"pressure" and the gas pressure within the internal plumbing 
around the mass spectrometer. The non-equilibrium aspect is 
most commonly represented by a temperature jump and a 


34 


velocity slip within the continuum formalism. Under the 
highly rarefied conditions at the upper end of the altitude 
range of interest , even that description may be inadequate 
because of the highly non-Boltzmann distribution of the 
molecules arriving at the surface. Figure 16 shows the 
distribution function of the flux of molecules arriving at 
the BUMS orifice at 95 Km and 115 Km obtained from the 
external program. The flux distribution is plotted both 
versus molecular velocities normal to the local surface and 
tangential within the plane formed by the free stream 
velocity vector and the local normal. Note that at 95 Km one 
could fit the distribtion by a Maxwedllian with some 
temperature different than the body temperature and a slip 
velocity which is comparable to the free stream mean 
molecular speed. At 115 Km the distribtion is clearly 
composed of two components, the free stream molecules 
arriving unperturbed at the surface, and the collided 
molecules having a broader distribution possibly 
representable by another Maxwellian. Clearly this potential 
bi modal character of the incoming molecules must be 
recognized in the evaluation of the "entrance" problem at the 
SUMS entrance. 
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III. Entrance Problem 


ORIGINAL PAGE IS 
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As a companion to the initial version of the external 
code (EXT) an internal code (INT) was developed ^ . The 
objective of this code was to determine local properties and 
surface fluxes in a cavity connected by a tube to the 
exterior surface. The input molecular distribution is 
obtained from the surface flux information provided by the 
external code. While the code is in principle general to 
allow a wide variety of geometric configurations it is 
optimised for a short tube-large cavity geometry. Early 
attempts to apply this code directly to the SUMS inlet 
geometry resulted in very long running times with little 
assurance that a steady state solution had been achieved. A 
total recoding of the entrance problem was therefore 
implemented resulting in a code (INTERNAL) that allows 
greater flexibility in handling the long tube geometry of 
SUMS as well as incorporates all of the changes in 
intermolecular collisions, numbers of species and rotational 
energy exchange developed for the code EXTERNAL. 

A. Entrance Computer Code INTERNAL 

The purpose of the program described in this section is 
to determine the fluid field inside a cavity which consists 
of a connected sequence of conic sections rotated about an 
axis of symmetry. The cavity is considered in two parts: a 

main cavity on whose interior surface the sensor will be 
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located, and an inlet tube whose orifice is presumed to be at 
the exterior surface of a spacecraft, A detailed code 
listing is given in Appendix C» 

The input data for this program includes a molecular 
distribution function which is obtained from an external '"flow 
run. Some of the other data refers to input parameters of 
the external -flow run. Thus it is seen that the pair of 
programs can be run as a set, computing the conditions inside 
a cavity which exist for a given set of conditions in the 
undisturbed f ree-stroam flow. The programs have not yet been 
directly coupled, although they are written with this intent. 

The program was constructed by turning an external -flow 
program inside out. In doing this, the basic molecule/body 
collision mechanism is preserved with only minor changes, 
while the molecule/molecule collision mechanism are riot 
changed in any way. 

A general description of the way in which the internal- 
flow program conducts the experiment is unnecessary since the 
description in the preceding section generally applies here. 
Any important differences will be described as they occur. 

The numerical experiment takes place in a cylindrical 
block of space quite similar to that used in external flow. 
However, the inlet region must be cylindrical in shape while 
the cavity region can be defined by conic sections. 

There is no subdivision of 1st level cells into smaller 
sized cells. Also, the number of azimuthal wedges is 
specified for a full 360° (since there is no plane of 
symmetry determined by an input flow direction) and is the 
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same for both regions. No weighting factors are used as the 
desired surface fluxes on the walls generally occur near the 
outer edges of the sample space. 

The orientation of the sample space is determined by the 
geometry of the particular body surface segment in external 
flow which is used as the orifice area of internal flow. The 
body surface normal of external flow becomes the x-axis <axis 
of symmetry) of internal flow? the direction given by the 
cross product of the x-axis of external flow and the body 
surface normal becomes the z-axis of internal flow; and the 
direction given by the cross product of the above cross 
product and the body surface normal becomes the y-axis. 

The zero radial plane is the positive x-y plane, and 
azimuth angles rmge from 0° to 360® , with the psoitive z- 
axis at 90° . 

The sample space is initially populated with gas 
molecules in a manner similar to that used in external flow. 
In this program, however, the gas molecules are initially in 
thermal with the walls locally. The selection of the density 
profile initially in the tube indeed poses a problem and is 
very critical in minimizing running time. The code therefore 
allows an arbitrary initial distribution specified by the 
user. The choices and procedures for selecting them are 
described in the next section. The key objective is to 
provide a distribution that is consistent with the input flux 
and will not have to be severly altered in magnitude to 
arrive at the steady state. 
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The molecular input distributions are generated from 

data produced by an external -fl ow run. This data consist! of 

velocity samples of molecules impinging on the external body 

surface segment which is considered to be the orifice area of 

the inlet region. The form of the velocity samples is a 

series of horizontal S-shaped curves, one for each molecule 

type, in each of three directions, for both UNCOLLIDED (free- 

stream) and COLLIDED molecules. Each s-curve gives the 

fraction of molecules (impinging on the body surface segment) 

with a velocity < the given velocity. A typical curve for 

UNCOLLIDED molecules is given Cv is the velocity 

M 

corresponding to the center velocity of the distribution as 
computed in the external flow program] s 
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The information from these curves is used directly to 
generate the molecular distribution of the molecules entering 


the inlet. 
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The population (pressure) inside the cavity region is 
selected initially as an input. The computer simulation 
proceeds until a steady profile inside the tube entrance 
region is generated. Since this does not necessarily require 
zero net flux, a series of runs with different cavity 
pressures is generated and a cross plot of flux Versus 
pressure is the output for a single external flow input 
condition. The equilibrium solution if desired can be 
obtained from the zero flux point. 

B. Scope of "Entrance Problem" for SUMS experiment 

Within the free molecular regime the "entrance problem" 

has been examined by Hughes and deLeeuw^) . in order to 

indicate the potential magnitude of the problem, Figure 20 

shows the variation of both the surface pressure (p ) and the 

s 

chamber pressure (p ) versus angle of attack under free 

c 

molecular conditions at infinite speed ratio and a very long 

tube (conditions approached at high altitude during Space 

Shuttle re-entry). For the SUMS location, the local angle of 

attack $ is approximately 28° giving a possible difference of 

a factor of 10 between the surface pressure (p ) and the 

s 

internal chamber (p ) that directly affects the mass 

0 

spectrometer reading. While this theoretical result is 
expected to be accurate at 140 Km and above, at lower 
altitudes the local flux distribution will have both a 
directed and a rather diffuse component (see Figure 18) , and 


also the effect of internal collisions within the tube will 
begin to play a role (see Figure 1). 

Because the tube length to diameter ratio is very large 
(37) the time constant and therefore the computing time to 
reach equilibrium is very long. For this reason no attempt 
is made to simulate the problem all the way to the condition 
where the chamber pressure behind the tube is at the correct 
value to nearly balance the net flux. Instead a series of 
runs with different assumed "cavity" pressures are performed 
and the zero net flux (or a given small value for the dynamic 
condition) can be selected to interpolate the correct 
"cavity" pressure. This procedure if it proves generally 
successful can of course be automated within the code. 

C. Preliminary Results of INTERNAL Code 

Preliminary' results for the SUMS entrance tube geometry 

are presented as a couple points on Figure 21 giving to the 

ratio p /p versus altitude, 
c s 

Also shown are some theoretical curves for full 

continuum (Continuum), for continuum external flow but free 

molecular flow through the tube (No slip, Kn ■+■ ®) , and for 

s 

fully free molecular flow (Free Molecule). In addition, some 
points using a best fit Maxwellian to the external flow flux 
and free molecular internal flow from reference 2, are shown 
at 95 Km and 115 Km. These results are preliminary, but they 
do indicate the magnitude of the * correction and the fact that 
no simple use of the currently available results can cover 


the entire range of altitudes of interest. 


IV. DISCUSSION 


If we couple information from INTERNAL (Figure 21) to 

the results of the external flow computations (summarised as 

a plot of p /l/2pU‘ versus altitude in Figure 22), we can 
s 

produce a preliminary estimate of the data reduction curve 

that could be coupled to the calibration of the mass 

spectrometer to deduce the q = l/2pU^ during Space Shuttle re 

entry. Figure 23 is a cross-plot of the q/p versus p 

c c 

obtained from Figures 21 and 22 with the 87 and 105 Km 
results only estimated on the basis of interpolation of 
Figure 21. The establishment of such a data reduction curve 
for the nominal re-entry conditions, together with associated 
error bars as well sensitivities to wall temperature and 
angle of attack is necessary for the proper i nterpretati on of 
data to be obtained by the SUNS instrument. 

The data measured by the mass spectrometer in the SUNS 
experiment essentially provides collector currents of charged 
species of different masses. Calibration of the instrument 
can relate these to the overall pressure and composition at 
the entrance to the instrument being calibrated. Since the 
actual environment of the flux of molecules to be encountered 
under flight conditions cannot be simulated the calibration 
is performed with the incident flux essentially in 
equilibrium with the instrument outer walls (room temperature 
and no flow). The data reduction procedure must therefore 
relate the effective environment in the ground test 
simulation to the desired dynamic pressure q under the 


•flowing non-equilibrium condition and through the calibration 
to the instrument measurements. 

As discussed abos'e, capability now exists for 
calculating the surface flux distribution of molecules 
entering an opening at the SUMS location. The computational 
procedures for connecting that information to the pressure 
immediately behind the entrance tube has also been developed, 
although not fully exercised over the entire range of 
parameters applicable to the SUMS experiment. That pressure, 
in turn, can be directly related to the ground test 
environment used to produce the calibration curves for the 
mass spectrometer . 

The primary objective of future work must be to provide 
data reduction procedure that relates the spectrometer 

2 

reading to the free stream dynamic pressure (q ~ 1/2 pU ). 

With currently available procedures a relation between the 

pressure p c and q such as the preliminary one shown on Figure 

23 can be obtained using the best available information on 

the flight parameters such as velocity, angle of attack, tile 

temperature, surface conditions, molecular collision 

parameters, etc. This relation must then be combined with 

the calibration curve where the instrument readings are 

related either to p directly, or to a calibration pressure 

c 

which can be related to pc by conventional means. A single 
plot of q versus total measured collector current can thus be 
obtained from the combination of these results. 

The relation between the dynamic pressure q and the 

calibration pressure p depends on many parameters of the 

c 


problem. Some of these, such as flight velocity, angle of 
attack, and tile surface temperature are expected to vary 
only slightly from their nominal values. Since the actual 
measured values of these quantities will be available on each 
individual flight, corrections to the data reduction relation 
should be evaluated in the form of sensitivity coefficients 
for small changes from the nominal. Studies to determine the 
effects of these parameters are necessary to establish the 
significant sensitivity coefficients that must be 
incorporated into the data reduction scheme. 

The parameters such as surface accommodation, surface 

recombination, and free stream composition can also affect 

the results. In addition, modeling si mi pi if i cations of both 

the geometry of the problem and the molecular collision 

phenomena can alter the quantitative value of the relation 

between q and p . Because of the unavailability of any in- 

o 

flight measurements that could lead to an evaluation of these 
parameters, bounds on the uncertainties they produce should 
be studied. Sensitivity of the data reduction relation to 
the most significant of these can then produce bounds on 
uncertainties on the dynamic pressure q, due to reasonable 
variations. The final goal of future work is an algorithm 
for the evaluation of the dynamic pressure q, from the 
calibration pressure p ^ , together with error bounds, due to 
the uncertainties associated with the external flow and the 
entrance problems. 
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FIGURE 2. SYSTEM FLOW-CHART 


Read In data and initialize all geometry, 
■olecule, cell, aad physical parameters. 











FIGURE 3. MODELING OF SPACE SHUTTLE NOSE (PARABOLA) 
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TYPICAL CELL CONFIGURATION FOR HYPERBOLA 
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FIGURE 5. MODELLING OF VISCOSITY-TEMPERATURE DEPENDENCE 
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FIGURE 6. TEMPERATURE DISTRIBUTIONS (EFFECT OF ALTITUDE) 
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FIGURE 9. SONIC LINES (EFFECT OF BODY SIZE) 
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FIGURE II. SURFACE FLUXES (EFFECT OF GEOMETRIC MODEL) 
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FIGURE 16. SURFACE PROPERTIES; PRESSURE COEFFICIENT C ■ p g /l/2pU* AND 
HEAT TRANSFER COEFFICIENT C H * Q/l/2pU 3 IN FOUR CROSS- 
PLANES AT 95 Km ALTITUDE 
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FIGURE 17. SURFACE PROPERTIES; PRESSURE C p AND HEAT TRANSFER 
COEFFICIENT C H VERSUS ANGLE IN CROSS-PLANE x * 75 
cm (NEAR THE SUMS ENTRANCE) AT 95 Km ALTITUDE 
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FIGURE 19. SUMS INLET GEOMETRY 
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FIGURE 20. FREE MOLECULAR PROBE RESPONSE (S - d/L -0) 









ALT. (Km) 





FIGURE 23 . PRELIMINARY ESTIMATE OF DATA REDUCTION 
RELATION q/p VERSUS p 

P * 
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ORIGINAL PW& ^ 

OF POOR QUALITY 

t T i 1 i i 1 1 r~i 1 1 



MOD. NBWT, (**1,4 



APPENDIX A 


COMPUTER CODE EXTERNAL 


ILE: GKBEXT DECK 


A 


PRINCETON UNIVERSITY TIME-SHARING SYSTEM 





t 


/ JOB GKB 0367425. GKBSPACE N=EXTCOMP REG=500 T=,8 P=150 C=0 
/♦FORMAT PR, DDNAHE=SYSNSG,DEST=VM370 
/ EXEC PORTXCL, PARM. FORT='XREF' 

’/FORT.SYSIN DD * 

BAIN PROGBAH FOR BONTE CARLO 3-D EXTERNAL FLOW CALCULATIONS 
OBJECTIVE OF THIS MAIN PROGRAM IS TO SET THE DIMENSIONS 
BAIN RUNNING PROGRAM IS *** RUN *** 


* FOLLOWING TWO CARDS HAVE TO BE ELIMINATED FOR NON IBM MACHINES 

£ **************************1 ******************************************** 

■■t INTEGER*2 LB , NBH , N BN , NB, NBP, NBT, NBS, NUMCEL 

l INTEGER* 2 LH , LPF , LCOL, LKW 

5 *********************************************************************** 


I 



PS : 

K 


t 

l 

x 

s 

i 

5> 

i 

i ■ 




THE NEXT CARD IS ASSOCIATED WITH PRINCETON RANDOM NUMBER GENERATOR 

*********************************************************************** 


COHMON/RANCOH/NRAN (4) 

*********************************************************************** 

THE FOLLOWING DIMENSION STATEMENTS SET THE MAJOR ARRAY DIMENSIONS 
AND MUST BE CONSISTENT WITH THE FOLLOWING DATA CARD 

NSP=NUMB ER OF SPECIES - EXAMPLE BELOW NSP=1 
NHB=NUMBER OF BOXES WITHOUT COUNTING SUBDIVISIONS OB THOSE 
OCCUPIED BY THE BODY - EXAMPLE BELOW NMB=2600 
NMC=NUMBER OF FINAL CELLS - EXAMPLE BELOW NNC=1500 
NMP=MAX NUMBER OF MOLECULES OP EACH SPECIES ALLOWED IN PROGRAM. 

IF EXCEEDED, PROGRAM EITHER FAILS OR RESTARTS AT BEGINNING 
WITH NUMBER REDUCED BY 10% - EXAMPLE BELOW NMP=20000 

NPB=HAXI MUM NUMBER IN EACH CELL - EXAMPLE NPB=100 


DIMENSION DBA (1, 1500) r NB (1,1500) , NBP (1, 1500) , NBT (1,1500) ,LKW (1500) 
DIMENSION TMP ( 1 , 1500) ,THPA (1, IliOO) ,XV (1, 1500) ,XVA(1, 1500) 

DIMENSION YV (1,150 0) ,YVA (1,1500) ,ZV(1, 1500) ,ZVA (1, 1500) ,DB (1,1500) 
DIMENSION TRP (1, 1500) ,TRPA (1 , 1 500) , NBS (1 , 1500) , NBM (1 , 1500) 
DIMENSION NBN(1500),T(1, 1,1500) 

DIMENSION LB (2000 0) , LM (1,20000) ,ER (1,2 0000) 

DIMENSION LPF ( 1, 20000) , PAU (1, 20000) , PAV ( 1, 20000) ,PAW (1,20000) 
DIMENSION PAX(1, 20000) , PA Y (1 , 20000) , PA Z ( 1, 20000) , LCOL ( 1, 20000) 
DIMENSION FNB (2600) ,XC (2600) ,YC(2600) ,ZC(2600) , NUMCEL (2600) 

DATA NSP/1/, N MB/2 6 00/, NMC/15 00/, N HP/2 0000/, NPB/1 00/ 


? 2 FORMAT (/17X, 'NORMAL TERMINATION OF THE PROGRAM') 

U NAMELIST/DIM/NSP, NMB, NMC, NMP, NPB, NRAN 

r' INITIALIZATION OF RANDOM NUMBER GENERATOR - PRINCETON ROUTINE 


BF"*f * 



NRAN (1)=0 
NRAN (2)=0 
NRAN (3) =0 
NRAN (4) =0 

PRINTOUT OF MAJOR ARRAY DIMENSIONS USED ABOVE 


ORIGINAL PAGil *? 
OF POOR QUALITY 


I 


PRINCETON UNIVERSITY TIflE-SHARING SYSTEM 


ORIGINAL P/&2 f. 
OF POOR QLVif4'»V 


|;TLE: GKBEXT DECK A 

WRITE (6, DIN) 

CALL OF NAIN OPERATING PROGRAM WHICH REQUIRES INPUTS: 

SCONTRL, STINES, SFLOREF, SMOLEC, SSHAPES ,SGEOM, SCOUPLE 
THESE INPUTS ARE ALL CURRENTLY IN THE NAMELIST FORMAT 
AND MAY HAVE TO BE CHANGED IF THAT CONVENTION IS NOT AVAILABLE 
BRIEF DESCRIPTION OF THE PARAMETERS FOLLOWS 
GCONTRL - ONE OCCURRENCE (NEW OR RESTART) 

PARAMETER DEFAULT DEFINITION OR EXPLANATION 

NAME 8 BLANKS ANY ALPHANUMERIC NAME UP TO 8 CHARACTERS 

TITLE 24 BLNKS ANY ALPHANUMERIC TITLE UP TO 24 CHARACTERS 

PERCNT .001 ACCURACY IN INTEGRATION PROCEDURES 

ICOPY 1 NUMBER OP ADDITIONAL COPIES OP OUTPUT 

DUMP .TRUE. IF TRUE WILL CAUSE SYSTEM DUMP FOR ANY OF 12 

PROGRAMMER DESIGNED ERROR HALTS. 

DEBUG (1) .FALSE. IF TRUE WILL PRINT MESSAGE WHEN CELL POP. EXCEEDS MNB 
DEBUG (2) .FALSE. IF TRUE WILL PRINT CPU TIME AROUND EACH PART OF LOOP 

DEBUG (3) .TRUE. IF TRUE WILL PRINT CPU TIME REMAINING AT END OF LOOP 

NEW .TRUE, IF TRUE - NEW RUN - IF FALSE - RESTART OF RUN 

SAVE .FALSE. IF TRUE - SNAPSHOT SAVED ON TAPE (9) FOR RESTART 

REDO .FALSE. IF TRUE PROGRAM WILL AUTOMATICALLY RESTART WITH 90* 

OF TOTAL IF TOTAL CELL POPULATION EXCEEDS MNH 


: STIMES - 
: PARAMETER 
: DTM 
' ITS 
’ ITP 
* TST 
T TLIH 


ONE OCCURRENCE (NEW OR RESTART) 

DEFAULT DEFINITION OR EXPLANATION 

- REAL NUMBER - FPACTION OF MEAN FREE TIME PER CYCLE 

- INTEGER - NUMBER OF CYCLES PER SAMPLE 

- - - INTEGER - NUMBER OF CYCLES BETWEEN PRINTOUTS 

INTEGER - ESTIMATE OF NUMBER OF CYCLES TO STEADY STATE 

- INTEGER - TOTAL NUMBER OF CYCLBS TO END OF RUN - 

WILL TERMINATE SOONER IF CPU TIME IS TO BE EXCCEDED 


> 

l - 

L r' 


$ 

f’h 

iii 

i 

H 

is 

i 




SFLOREP - ONE OCCURRENCE (NEW RUN ONLY) 

PARAMETER DEFAULT DEFINITION 

INM - - - INITIAL NUMBER OF MOLECULES INM<MNM< OR * NMP 

MNM - - - MAXIMUM NUMBER OF MOLECULES PER SPECIES 

MNB MAXIMUM NUMBER PER CELL - DIAGNOSTIC ONLY 

MSP NUMBER OF MOLECULAR SPECIES (MAX. IS 3) 

MET 0 IF 0 - DATA IS IN SI (METRIC) UNITS 

I F>0 - DATA IS IN ENGLISH UNITS 

U FLOW VELOCITY (H/SEC) OR (PT/SBC) 

ANGLE ANGLE OF ATTACK (DEGREES) 

RNU 0.0 ARRAY GIVING MOLE FRACTIONS OF SPECIES IN FREE STREAM 

RNA 0.0 ARRAY GIVING MOLECULAR WEIGHTS OF SPECIES ABOVE 

TF FREE STREAM TEMPERATURE (K OR R) 

DENF FREE STREAM NUMBER DENSITY (NUH/M**3 OR N0H/FT**3) 


SMOLEC - ONE OCCURRENCE (NEW RUN ONLY) 
PARAMETER 


TRF 

DIR 

.eta 

P PHI 

CHI 

ACR 


DEFAULT 

0.0 

0.0 

0.0 

0.0 

.001 


DEFINITION 

REFERENCE TEMPERATURE FOR MOLECULAR DATA 
CROSS-SECTIONS AT REFERENCE TEMP. (MSPXMSP) 
PARAMETERS IN DIFFUSION AND VISCOSITI LAW (MSPXMSP) 
PARAMETERS FOR ROTATIONAL RELAXATION (MSPXMSP) 
ROTATIONAL DEGREE OF FP.EEDOM PARAMETER (NROT/2 - 1) 
ACCURACY IN MOLECULAR COLLISION CALCULATIONS 


€ 


A-2 


MLE: GKBEXT 


DECK 


PRINCETON UNIVERSITY TIHE-SHARING SYSTEB 


ORIGINAL PACE !*5 
OF POOR QUALITY 

5SHAPES - ND*1 OCCURRENCES WHERE ND=NUHBER OP BODY SEGHENTS (NEW RUN) 
PARAHETER DEFAULT DEFINITION 
FIRST OCCURRENCE 

0.0 STARTING POINT OF BODY FROM FRONT OF CELLS (N OR FT) 

I>1 NEED NOT BE SPECIFIED 

SUBSEQUENT OCCURRENCES (ND) 

- - - X COORDINATE FROH FRONT OF BODY OF THE DOWNSTREAM 

EDGE OP THE CURRENT BODY SEGMENT 

- TEMPERATURE OF THIS BODY SEGMENT 

SURFACE AREA/TOTAL CROSS-SECTIONAL AREA POR SEGMENT. 

IF 0.0 PROGRAM WILL COMPUTE THIS QUANTITY 

SWITCH - IF 0.0 THIS SEGMENT'S EQ. WILL APPEAR LATER 

IF >0.0 THE EQ. OP THIS AND PRECEEDING SEGMENTS IS 
GIVEN BY BODY (6+2*MSP) TO BODY (9 + 2*MSP) 

SWITCH - IF NOT 0.0 THIS IS THE LAST SHAPES CARD 

ALPHA - ENERGY ACCOMODATION COEFFICIENT POR SPECIES 
SIGMA - TANGENTIAL ACCOMODATION COEFF. FOR SPECIES 
(6 + 2*MSP) 

ORIGIN OF COORDINATES WITH RESPECT TO BODY START 
FOR THE EQUATION OF THIS BODY SECTION 
COEFFICIENTS A # B,C IN THE EQUATION 
R**2*APX**2+B*X*C=0.0 FOR THIS BODY SECTION 


BODY ( 1 ) 
BODY (I) 

BODY (1) 

BODY (2) 
BODY (3) 

BODY (4) 


BODY (5) 
BODY (I) 
BODY (J) 


I 

J 

I 


EVEN 
ODD 
AND J 


BODY (6+2PMSP) 

BODY (7+2*MSP) - 
BODY (9*2*MSP) 


SGEOH - ONE OCCURRENCE (NEW RUN ONLY) 
PARAMETER DEFAULT DEFINITION 


NWEDGE 

THETAZ 

RHB 

BW 

BH 

NW 

NH 

NL 

NFA 

NCA 

NHA 

MW 

MH 

NFB 

NCB 

NHB 

LW 

LH 

LD 

LF 


1 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 


TWO INTEGERS GIVING THE NUMBER OF WEDGES BELOW 
AND ABOVE THE ANGLE THETAZ 

ANGLE FROM NEG. Y AXIS DIVIDING DIFF. WEDGE SIZES 
BAX. BODY RADIUS - IF 0. WILL BE COMPUTED BY PROGRAM 
WIDTH (DEL X) OF FIRST LEVEL CELLS (M OR FT) 

HEIGHT (DEL R) OF FIRST LEVEL CELLS (M OR FT) 

NUMBER OF FIRST LEVEL CELLS IN X DIRECTION 
NUMBER OF FIRST LEVEL CELLS IN RADIAL DIRECTION 
NUMBER OF LEVELS OF CELLS 

NUMBER OF FIRST LEVEL CELLS AHEAD OF LEVEL 2 

NUMBER OF FIRST LEVEL CELLS SUBDIVIDED INTO SECOND 

LEVEL CELLS ALONG THE X DIRECTION 

AS ABOVE BUT IN RADIAL DIRECTION 

NUMBER OF SECOND LEVEL CELLS IN THE X DIRECTION 

NUMBER OF SECOND LEVEL CELLS IN THE RADIAL DIRECTION 

NUMBER OF SECOND LEVEL CELLS AHEAD OF LEVEL 3 

NUMBER OF SECOND LEVEL CELLS SUBDIVIDED INTO THIRD 

LEVEL CELLS ALONG THE X DIRECTION 

AS ABOVE BUT IN RADIAL DIRECTION 

NUMBER OF THIRD LEVEL CELLS IN X DIRECTION 

NUMBER OF THIRD LEVEL CELLS IN RADIAL DIRECTION 

NUMBER OF FIRST LEVEL CELLS FROH AXIS IN R DIRECTION 

FOB WEIGHTING FACTOR BOUNDARIES (5 INTEGERS) 

WEIGHTING FACTOR RATIOS AT BOUNDARIES ABOVE (5 INTEGERS) 


&COUPLE - ONE OCCURRENCE (NEW RUN ONLY) - DISTRIBUTION FUNCTION 
PARAHETER DEFAULT DEFINITION 

NS - - - THE NUMBER OF BODY SEGHENTS FOR ACCUMULATING VELOCITY 

DISTRIBUTION FUNCTION INFORMATION 


ORiGiim Kr. ’ * . 

(f I LE J GKBBXT DECK POOR ’.il»V PRINCETON UNIVERSITY TIME-SHARING SYSTEM 


*■ C MS 

C IBS 

K C VEL 3., 3., 4. 

• C MJ 20 

!i - SL 

lie 

: C DELS 

’■ : IP DISTRIBUTION 

0 5C0UPLE NS=0 SEND 

: 2fc 


ARRAY (NS) OP AXIAL SEGMENT NUMBERS 
ARRAY (NS) OP AZIMUTHAL HEDGE NUMBERS 

THERMAL VELOCITY SPREAD FOR THE UNCOLLIDF.D MOLECULES 
NUMBER OP DEL V REGIONS POR SAMPLING VELOCITY SPACE 
ARRAI GIVING LOWER BOUND ON THE VELOCITY SAMPLE OP 
COLLIDED MOLECULES (MSP X NS X 3) 

THE RANGE (SL<V<SL*DELS) FOR SAMPLE OF COLLIDED 
MOLECULES (MSP X NS X 3) 

FUNCTION INFORMATION IS NOT DESIRED USE: 


A SAMPLE INPUT DECK IS GIVEN BELOW: 


, h «* 

•“ -SCONTRL NAME=»SHUT»,*TLE • , TITLE* ' HYPE' , ' RBOL ■ , • A AT*,' 95K»,'M H» # 'ON. *, 

<i :■ DEBUG=. F.,. T. ,. T. , NEW*. T. , SAVE*. T. , ICOPY=0, REDO*. T. SEND 
JSTIMES DTH=.025,ITS*5,ITP=1000,TST=400,TLIM=1000 SEND 

:SFLOREP INM=4500,MNH=20000,MNB=100, HSP= 1, MET=0, U=7485 . 9, ANGLE=0 . 0 ,RNU=1 . , 2*0. , 
RHA=28.94,0.,0.,TF=195.51,DENF=2.52E+19 SEND 
:SMOLEC TRF=1000,DIR=3.5E-19,ETA=. 104, PHI=0. 0,CHI=-1 ., ACR*.001 SEND 
i':SSHAPES BODY* 1.00 SEND 

i* 'SSHAPES BODY*. 0173, 1590. ,3*0.0, 2*1.0 SEND 
$ .’SSHAPES BODY*. 0672, 1590. ,3*0.0, 2*1.0 SEND 
jr-1 ISSHAPES BODY*. 1444, 1590. ,3*0.0, 2*1. 0 SEND 
r SSHAPES BODY*. 2432, 1590. ,3*0.0, 2*1.0 SEND 
SHAPES BODY*. 3579, 1590. , 3*0. 0, 2*1. 0 SEND 
rj SSHAPES BODY*. 4842, 1590. , 3*0. 0, 2*1 . 0 SEND 
r ^SHAPES BODY*. 6192, 1590. ,3*0.0, 2*1.0 SEND 
^‘SSHAPES BODY*. 7405, 1590. ,3*0.0, 2*1.0 SEND 

; :S SHAPES BODY*. 7500, 1590. ,0. , 1. , 0. , 2*1. , 0. ,- 1 . 423278 ,- 2. 286, 0. SEND 
P SSHAPES BODY*. 9000, 1590. ,0.0, 4*1. 0,0. 9000, -11 1.82,2*0.0 SEND 
f *: SGEOH N HEDGE* 1,0,THETAZ=180.,RMB=0.0, BW*. 05,BH=. 1,NH=40,NH=24,NL=2, 

\ NPA* 15, NCA=20, NHA=16,HH=40,MH=32,LD*1,2,4,8, 12,LP=3, 2,2, 2, 1 SEND 
SCOUPLE NS* 3, MS=1 ,5,8,IHS=1,1,1,VBL=2. 5, 2. 5, 2. 0, H J*20, SL* 9* 1 . , 1 8*-9. , 

I DELS*27*20. SEND 


CALL RUN (NSP,RHB, NMC, NMP, NPB,DBA , NB, NBF, NBT, TMP, TMPA,XV, XV A, YV, 
1YVA,ZV,ZVA,T,DB,FNB,XC,YC,ZC,NUMCEL,LM, LPF, PAU,P AV, PAW, PAX, PAY, 
2PAZ, LCOL,TRP,TRPA, ER,LKW, NBS, LB, NBH, NBN) 

WRITE (6,2) 

STOP 

END 


C 


SUBROUTINE RUN (NSP,FMB, NMC, NMP ,NPB,DBA , NB, NBF, NBT, TMP, TMPA ,XV, XVA, 
1 YV, YVA,ZV,ZVA,T,DB,FNB,XC,YC,ZC,NUMCEL,LM,LPF,PAU,PAV,PAW,PAX, 
2PAY,PAZ,LCOL,TRP,TRPA,ER,LKW,NBS,LB,NBH,NBN) 

MAIN RUNNING PROGRAM ** RUN ♦** CALLS ALL OTHER SUROUTINES 


********************************************************************** 


m 


INTEGER*2 LH, LPF, LCOL, LKW 

INTEGER*2 LB, NBH, NBN, NB, NBF, NBT, NBS, NUHCEL 
INTEGER PRT, SAMP, TST,TLIM, TIME, Q 
LOGICAL DUMP, DEBUG (3) , SAVE, N EW, REDO 


A-4 


\ 


ILE: GKBEXT DECK 


PRINCETON UNIVERSITY TIRE-SHARING SISTER 


i • 


REAL INTGRL,LAH,HU,NU, JAT,KAY 

DIRENSION BTA (3) ,C1 (3) ,C2 (3) , C3 (3) ,C7 (3) ,C0(3) ,DFA (3) , PL (3) 

DIRE NS ION DELANG(2),PDN(3) , HTI (3) , HTR (3) , JNT (3) , KNH(3) ,NH{3) ,SR(3) 
DIRENSION NAME (2) ,TITLE(6) , NREDGE ( 2) ,LD(5),LF(5) ,LRF (6) ,RLD (6) 
DIRENSION RNU(3) , HHA (3) , WTH (3) , CHI (3) , DIB (3,3) , DAM (3,3) , PHI (3, 3) 
DIRENSION ETA (3,3) , CN8(3,3), CNG (3) , CHG (3) , CN (3, 3, 3) ,CR (3, 3, 3) 
DIRENSION CTI (3,3) , CTR (3 , 3) , CNI (3 , 3) ,CNR (3,3),LEV(3) ,SN(3) ,ST(3) 
DIRENSION D1 (3) ,D2 (3) ,D3 (3) ,D4 (3) , BODY (15) , DBG 1 (3,3) ,LIHIT (10) 
DIRENSION VL (3,3) , DELV (3,3) ,SSA (2,3) ,SSB (2,3) , VEL (3) ,COEFP (4,9) 
DIRENSION XLIH (12) ,NTCP (3, 3), RS (3), I NS (3),TANGN(3) ,NCOL(3,3) 
DIRENSION PV (3,3,2,20 ,3) ,NTCV(3, 3,2,20,3) ,SL (3,3,3) , DELS (3,3,3) 
DIRENSION XCB ( 1 8) , XS ( 1 8) ,YCB (18) ,TB (18) , ALPHA (3, 18) , SIGMA (3, 18) 
DIRENSION NTS (3, 18,12) ,NTSF(3, 18,12) ,0TL (3,18, 12) ,UTT(3, 18,12) 
DIRENSION VTS (3, 18,12) ,HTSI(3, 18, 12) ,HTS (3, 18, 12) 

DIRENSION UTLI (3, 18, 12) ,UTTI (3,18, 12) ,VTSI (3,18, 12) 

DIRENSION ENT (2, 3, 6, 12) , REM (2, 3, 6, 12) , ENTS (3,12) ,REHS(3, 12) 
DIRENSION PTH (3 , 12) , THETA (12) ,DTH(12) 

DIRENSION LB (NHP) , NBN (NHC) , NBH (NSP,NMC) , LN (NSP,NRP) 

DIRENSION ER (NSP,NMP) ,TRP (NSP,NRC) ,TRPA (NSP,NHC) 

DIRENSION DBA (NSP, NRC) ,NB(NSP,NHC) , NBF (NSP, NHC) , NBT ( NSP, NHC) 
DIMENSION TMP (NSP, NHC) , THPA (NSP, NHC) , IV (NSP, NRC) , XVA (NSP, NHC) 
DIMENSION XV (NSP , NHC) , YVA (NSP, NHC) ,ZV(NSP,NMC) ,Z VA (NSP, NHC) 
DIRENSION T (NSP, NSP, NHC) ,DB(NSP,NMC) , LKW (NHC) , NBS (NSP, NHC) 
DIMENSION PNB(NHB) , XC (NHB) , YC (NHB) , ZC (NHB) ,NURCEL(NHB) 


DIMENSION LPP (NSP, NHP) ,PAU (NSP, NHP) , PA V ( NSP, NHP) ,PAB (NSP, NHP) 
DIRENSION PAX (NSP, NHP) , PAY (NSP, NHP) , PAZ (NSP, NHP) ,LCOL (NSP, NHP) 

EXTERNAL FNCTN, FNCTH 


COMMON 

COMMON 

COHRON 

COHHON 

COHMON 

COHHON 

COHHON 

COHHON 


BUN0360 


RUN0440 

RUN0450 

RUN0460 


/RANCOH/NRAN (4) , KARLS 

/FI RST/NL, N W, NH, MH,MH,LR,LH,NXA,NXB,NCA,NCB,NFA,NFB,NHA,NHBRUR0480 
/SECND/BW ,BH,BWB,BHB,BRC,BHC,XLB,XLC RUN0490 

/THIRD/PI, N REG, S, SIN ANG, COS ANG,AKN RUN0500 

/FORTH/NBX, RR,XR,DUHP,C9,BWPH,LL RUN0510 

/FI FTH/ND,TIME,DTH,TI,ITS,ITP,TST,TLIH,RHA,RNU,DIR RUN0520 

/SIXTH/RHB, XSTART,JNM,MNH,HNB, NEW, SAVE, PERC NT, NSR, TR RUN0530 

/SV NTH/LA H, HU, NO, MT, N, J, X, Y,Z,T0SE RUN0540 

COHHON/EIGTH/DENF,D,TF, ANGLE, TRF, CHI, PHI, ETA, NTH, DAH, VELR, XREF 
NA HELIST/CONTRL/NA HE, TITLE, PERCNT,ICOPY,DUHP, DEBUG, NEH, SAVE, REDO 
NAMELIST/TIHES/DTH,ITS,ITP,TST,TLIM RUN0580 

NAMELIST/FLOREF/INH, MNH,MNB, HSP, MET, U, ANGLE, RNU, RH A,TF , DENF 
NAHELIST/HOLEC/TRP, DIR, ETA,PHI,CHI, ACR 

BARELI ST/SHAPES/BODY RUN0570 

NAHELIST/GEOM/NWEDGE, THETAZ,RHB, BW, BH, N W, NH, NL,NPA ,HCA , NHA , HR, HH, N 
1HB,LW,LH,LD,LF,NFB,NCB 

NA HELIST/C OOPL E/NS, HS, IRS, VEL, HJ,SL, DELS RUN0590 


DATA 

DATA 

1*303 

DATA 

DATA 

DATA 

DATA 




110 * , * FLOW * , * AT 


IC/O/, ICOP Y/ 1/ 

DBG 1/* GAS*,* AT 
» / 

LIHIT/12,9, 18,500,3600,70,900,3,20,3/ 
TITLE/* • , • 

NAHE/* ',* 

CPC/0 . 0/, CPH/0. 0/, CPB/0 . 0/, CPJ/ 15 . 0/ 


V 




'#» 


*,*130 




V' 


PUN*,* AT 


'/ 


• , RUNO 630 
RUN0640 

PUN0660 

RUN0670 

RUN0680 


A- 5 


ORIGINAL i-A&S W 
OF POOR QUAS-sT Y 


£ 


: GKBEXT DECK 


PRINCETON UNIVERSITY TIHE-SHARING SYSTEM 




;********* *«*«************t**************»******************************RuN0 690 

l RUN0700 

OR!C5!N‘Ac, P.'Y ■ 7u 


PORNATS 


OF PQOVi Qf 


.41 


1 

2 

3 

4 

5 

6 

30 


FORMAT (1 HI) 

FORMAT (1H1/17X,'RARIPIED SUPERSONIC FLOW OF BINARY G AS • , T74, • I » ) 
FORM AT (' ♦ • , 1 03X, ' COP Y ',12) 

FORMAT (/I 7 I, ' FLOW THROUGH ALL THE BOUNDARIES'//) 

FORMAT (3X, 314, 6E1 0.6/) 

FORMAT (7X, 214, E 18. 6 ,72X, E 18 . 6) 

FORMAT (• 1TIME =', P6. 3, 60X, ' RANDOM NUMBER GENERATOR HAS BEEN CALLED 
1 ',110,' TIMES') 

31 FORMAT (' CPU TIME LEPT- ',P8.3) 

32 FORMAT (7 X, '-MOLECULES- */3X, 3IG) 

33 FORMAT (' TIME = ', F8. 3, 5X, ' COLLISION LOOP=* , P8 . 3 ,5X, ' MOVE LOOP 
1,F8.3,5X, 'TOTAL TIME = ', P8. 3/21 X, ' 2ND MOVE LOOP =',F8.3,5X, 

2 'CLEANUP LOOP=', F8. 3, 4X, 'PARTICLE NUMBERS = ',416) 

34 FORMAT (9X, '-MOLECULAR COLLISIONS- '/3 (31 1 4/) ) 

PORNAT(2X, '-COLLISIONS WITH SURFACE-'/3X,3I8) 

FORMAT (• MAXIMUM NUMBER OF MOLECULES SO FAR- 
FORMATC EXCESS MOLECULES OCCURRED IN *,3A4) 

FORMAT (/' SOMETHING IS WRONG WITH BOX NUMBERING IN RUN 

1 7, 315, 2E 17. 7, 515/2 El 7. 7) 

42 FORMAT (/' SOMETHING WRONG IN COMPUTING X START'/I X, 8E 16 . 8) 

44 FORMAT (' NB ( • , 12, • , • , 14, ' ) POPULATION EXCEEDED ',13,' IN MAIN AT 


RUN0710 

R0N0720 

RUN0730 

RUN0740 

RUN0750 

RUN0760 

RUN0770 


RUN0800 

RUN0810 


35 

36 
38 
40 


•#I6//) 


R0N0880 
RUN0890 
'/5I5,2E17.RUN0900 
RUN0910 
RUN0920 
TR0N0930 


1 ' 

1 IME = • , F7 . 3 ) 

RUN0940 

^ * * 

50 FORMAT (///' SNAP SAVED ON TAPE') 

RUN0950 

£ " r 


RUN0960 

&. * ********************************* ************************************ **paN0 970 

p ♦ 

» . 


RUN0980 

r 

CPA=ELTINE (0) 


CALL NOUNDF 

• 

\ : 

LIMIT (4) =NMC 


i 

LI HIT (5) =NHP 



LIMIT (6) =NPB 



LIMIT (7) =NHB 
LI HIT (10 ) =NSP 


jr 

KA WLS=0 


V 4 

PI=3. 141593 

RUN 1030 


PIROOT=SQRT (PI) 

RUN1040 

H ' 

NET=0 


k 

LARGE-0 

RUN1060 

■ y 

NL-1 

RUN1080 

\ SI 

NFA=0 

RUN1090 

NCA=0 

RUN1100 


NHA=0 

R0N1 110 

/' 

* 

M W=0 

RUN 1 120 

’imi* 

MH=0 

RUN1 130 

Hi m 

NFB=0 

R0N1 140 

NCB=0 

RUN1150 

a* 

NHB=0 

RON1160 


LS=0 

RUN1170 

rr 

« 

LH=0 

RUN1180 




A- 6 


GKBEXT DECK 


A 


PRINCETON UNIVERSITY TIME-SHARING SYSTEM 


Hi: 


HJ=20 


DUMP-. TRUE. 

DEBUG (1) =. FALSE. 
DEBUG (2) =. FALSE. 
DEBUG (3) =. TRUE. 
SAVE-. FALSE. 
NEW=.TRUB. 

REDO=. FALSE. 
PERCNT=. 00 1 
ACR-.001 
DO 58 1=1,15 
58 BODY (I) =0.0 
DO 60 1=1,3 


ORIGINAL PA?v. V 
OF POOR QU'ALIVY 


RUN1 190 


RUN1230 
RUN1260 
RUN 1240 
RUN1250 


RNU (I) =0. 0 
RMA (I) =0.0 
CHI (I) =0.0 
DO 59 J=1, 18 
ALPHA (I, J) =1.0 

59 SIGMA (I, J)=1.0 
DO 6 0 K= 1 , 3 
ETA (I, K) =0.0 
PHI (I,K) =0.0 

60 DIR (I,K) =0.0 


VEL ( 1) =3. RUN1300 

VBL(2)=3« RUN1310 

VEL ( 3) =4. RUN 1 320 

WRITE (6, 1 ) RUN1330 

READ (5,CONTRL) RUN1340 

WRITE (6, CONTRL) 

IF (NEW) GO TO 103 RUN1360 

REWIND 9 RUN1370 


READ (9) DENP,U,XREF,TRP, KA WLS, NL ,N W,N H , MW, MH, LW, LH , NXA , NXB , NCA RUN1380 

1 , NCB ,NFA,NFB,NHA,NHB,BW,BH,BWB,BHB,BWC,BHC,XIB,XLC,PI, NREGRUN1 390 

2 ,S, SI NANG, CO SANG, AKN , NBX, RH , XR , ND, TIME ,DTH ,TI, ITS , IT P, TST RUN 1400 

3 ,TLIM,RMA,RNU,DIR,XSTART,JNM,MNM,MNB,TR, BZC, CN7, DRF, FCF RUN1410 

4 ,FNA,HTF,INM,ITYPE,JTYPE,MJ,NAV,NMAX,NS,NWEDG,PRT,SAMP RUN1420 

5 ,BTA,C1,C2,C3,C7,C8, DAM,DFA, FL, DELANG, FDN, HTI, HTR, JNT, KNM RUN 1430 

6 , N M, WTH, C4 ,VRH,NCOL,LD,LF,LWF,RLD, CTI, CTR , CN I, CNR , LE V, SN RUN 144 0 

7 ,ST,D1,D2,D3,D4,SSA,SSB,MS,NSP,NMB,NMC,NMP,NPB,NRAN, VELR 

8 ,IWS,TANGN,XLIH,COEFP, XCB, XS, YCB, TB, ALPHA, SIGMA, NTS, NTSF RUN1460 

9 , UTL, UTT,VTS,HTS,HTSI, ENT, REM, ENTS, REMS, FTH, THETA, DTH,TMPARON 1470 

A ,DBA,NB,NBF,NBT,TMP,XV,XVA,YV,YVA,ZV,ZVA,T,DE,PNB, XC, YC, ZCRUN1 480 

B , NUMCEL, PAU, PA V, PAW, PAX, PA Y, PAZ, FV , NTC V , NTCF,LPF, LCOL, LM RUN 1490 

C, ETA, PHI, CHI, CN, CM, CNG,CMG,CN8,TRP,TRPA,THETAZ,NWEDGB, MSP, ANGLE, TF 

D, UTLI,UTTI, VTSI, ER,RMB,LKW,NB5,LB,HBM,NBN 

REWIND 9 RUN 1500 

DTHO=DTM 

READ (5, TIMES) 

WRITE(6, TIMES) 

IF (DTM.EQ. DTMO) GO TO 100 

AIHE=TIME*DTMO 

TIME=AIHE/DTM«-0. 1 

DO 99 J= 1 , NSP 

DO 99 L=1 , NWEDG 

ENTS (J,L) =ENTS (J,L) *DTH/DTMO 


A- 7 


PRINCETON UNIVERSITY TIRE- SHARING SISTER 


^ FILE: GKBEXT DECK A 


N * 

H 

r*j 

B. R i, 

.[ L- 


original page tg 

op POOR QUALITY 


DO 98 K=1,6 
DO 98 1=1 , 2 

ENT (I, J, K, L) =ENT (I , J, K,L) •DTB/DTBO 

98 CONTINUE 

99 CONTINUE 

100 IF(TI.GT.O.O) TST=TI/DTB 
WRITE (6, 2) 

WRITE (6,4) 

WRITE (6, 5) (((I,J,L, (ENT(I,J,K,L) , K=1 ,6) , L=1 , NWEDG) ,J=1,BSP) ,1=1,2) 

WRITE (6,6) ((J,L,ENTS(J,L) ,PTH(J,L) ,L=1,NWEDG) ,J=1,NSP) 

WRITE (6, 2) RUN 1 540 

CALL PBINTA (THETAZ, NWEDGE, TITLE, NAME, XCB,YCB,TB, ALPHA, SIGN A, LD,LF, RUN1 550 
1XLIB,COEFF,LINIT,BSP) 

CALL PRINTB (PNA, BSP, PNB, LEV, LWF, Nfl,BLD, XLIB, XC , YC, ZC, NB, NUBCRL , LKW 
1 , NSP) 

GO TO 280 RUN1590 

103 READ (5, TINES) 

WRITE (6, TIHES) 

READ (5,PLOREF) 

WRITE (6, FLOREP) 

READ (5,NOLEC) 

WRITE (6, HOLEC) 

IF(BSP.GT.LIBIT(10) ) CALL DIAG ( 1 0, LIBIT ( 1 0) , BSP) 

CHIB=0.0 

RBR=0.0 


l DHR=0.0 

K DO 115 B=1 , BSP 

ti RHR=RMR*RHA(N) *RNU (H) 

P CHIN=CHIB>CHI (H) *RNU (fl) 

r. DO 115 K= 1 , BSP 

r 115 DHR=DHB + RNU(H) *RNU (K) *DIH (B,K) * (TRP/TF) ** (ETA (B, K) /2.) 
: XHEF=1./ (DENF*DBR* 1.414214) 

l VELR=SQRT( 16628. 64*TP/RBR) 

IF (BET.NE. 0) VELR=SQRT (994 37. 9 2*TF/RNR) 

' THR=XREP/VELR 

; S=U/VELR 

XLIB(1)=0. 

TR=0. 

r IR=0. 

f NREG=0 

ND=0 

READ (5, SHAPES) 

B 'f WRITE (6, SHAPES) 

1 XO=BODY(1) /XREP 

A 104 READ (5, SHAPES) 

WRITE(6, SHAPES) 

ND=ND*1 

IF (ND.Gl'.LIBIT (3) ) CALL DIAG (3,LINIT (3) , ND) 

XCB (ND) =BODY (1)/XREF*XO 
TB (ND) =BODY (2) /TP 
YCB (ND) =BODY (3) 

DO 1104 H=1, BSP 
ALPHA (B,ND)=BODY(4«-2*B) 

SIGBA (B, ND)=BODY (5*2*B) 

IF(TB(ND) .GT.TR) TR=TB (ND) 


;-*■ fl 

/'! 


t . n 


f.4 




1104 


RUN1610 
RUN1 620 
RUN 1630 
RUN1640 
RUN 1 650 


RUN 1670 

RUN1680 

RUN1690 


RUH1770 


file: grbext deck 


PRINCETON UN If ERSITI TINE-SHARING SISTER 


A 


109 


109 


111 


112 


IF (ICB (ND) *GT. TR) TR=TCB(ND) 

IF (BODY (4) , EQ« 0. 0) GO TO 104 

NREG=NHEG* 1 

XLIN (NREG + 2) =XCB (ND) 

IT*BODI (6 + 2* MSP) /XREF+XO 
A*BODT (7 + 2*HSP) 

B*BODI (8«-2*HSP)/XREF 

C»BODT (9*2*HSP) /XB EF**2 

COEFF (1, NR EG) =A 

COEFF (2, NREG) = 1. 0 

COEFF (3, NREG) *B-2. *A*XT 

COEFF (4, NREG) ■ A*XT**2-B*XT*C 

IF (BOOT (5) «EQ. 0. 0) GO TO 104 

IF (NREG* GT.LINIT(2)) CALL DIAG 

NSTEP-NREG+2 

A—COEFF (1,1) 

B*COEFF(3, 1) 

C*COEPF(4,1) 

DISC=B*B-4.*A*C 


ORIGINAL PAGE IS 
OF POOR QUALITY 


(2,LIHIT (2), NREG) 


IF (DISC.LT.0.) DISC=0. 

DISC=SQRT (DISC) 

IF (A.NB. 0. ) GO TO 108 
XSTART=-C/B 
GO TO 109 
X1*,5/A*(-B*DXSC) 

12®. 5/ A* (-B-DISC) 

XSTART=ANIN1 (XI, X2) 

XHAX= AHAX 1 (XI, X2) 

IF(XHAX. LT.XLIH(3) ) XSTART=XMAX 
IF (XSTART* GT. 0. ) GO TO 109 

WRITE (6, 42) XSTART, A, COEFF (2, 1) , B,C,DISC, Xl, X2 
IF (DUMP) CALL ABEND(I) 

STOP 

XLIN (2)=XSTART 
A=COEPF ( 1 , NREG) 

B*COEFF (3, NREG) 

C®COEPP (4, NREG) 

DISC=B*B-4.*A*C 


IF (DISC. LT. 0. ) DISC® 0. 

DISC=5QRT (DISC) 

IF(A.NE. 0.) GO TO 11 1 
XLIN (NSTEP) =-C/B 
GO TO 112 
XI*. 5/A* (-B+DISC) 

12-m 5/A* (-B-DISC) 

XLIN (NSTEP) =AH AX 1 (X1,X2) 

XHIN®AHIN 1 (XI, X2) 

IF(XHIN.GT. XLIN (NSTEP- 1) ) XLIN (NSTEP) =XNIN 

IF (XLIN (NSTEP) ,GT. XLIN (NSTEP-1) ) GO TO 112 

WRITE (6, 42) XLIN (NSTEP) , A, COEFF (2, NREG) ,B,C,DISC,X1, X2 

IF (DORP) CALL ABEND (1) 

STOP 

AKN=1./(XLIH (NSTEP) -XSTART) 

XCB(ND)=XLIN (NSTEP) 

DO 260 N= 1 ,3 


RON 1780 
BOR 1800 


R0N1860 
RON 1870 
RUN1880 
RON 1890 
RUN 1 900 
RON 1910 
R0N1920 
RUN1930 
R0N1940 
RON1950 
RUN1960 
R0N1970 
R0N1980 
RON 1990 


RUN2000 
RON2010 
RUN2020 
RON 2 030 
RON2040 
R0N2050 
RUN2060 
RON2070 
RUN 2 080 
RON2090 
R0N2100 
RON2110 
RUN2120 
RUN 2130 
R0N2140 
RUN2150 
RUN2160 


RUN2170 

RUN2180 


A 


PRINCETON UNIVERSITY TIHE-SHAHING SYSTEM 


£*ItE: GKBEXT DECK 


Vi 


258 

259 

260 


V ■ 


a 




261 
262 
2 64 




e 




MS (N) *0 
IWS(N) =0 
DO 259 5=1/3 


NCOL (N#M) =0 
DO 258 K=1/3 
SL(N,5 # K)=0.0 
DELS (N/5/K)=0« 0 
CONTINUE 
CONTINUE 
READ (5/GEOM) 

READ (5, COUPLE) 

WRITE (6/ GEOH) 

WRITE (6/COUPLE) 

BW=BW/XREP 

BH*BH/XREP 

RHB=RHB/XREP 

IP (RMB. GT. 0. ) GO TO 264 

DO 262 K=1 , NREG 

XBEG=XLIM (KM) 

XEND=XLIM (K*2) 

A=COEPP ( 1 # K) 

B=COEPF (2/ K) 

C=COEPP (3/ K) 

D=COEPP(4/K) 

REND=SQRT (ABS ( (A*XEND**2*C*XE 
IPEAK=0. 


ORIGINAL PACE $ 

A! I ^ I tW 




RD't'D) /B) ) 


IF (A « NE. 0. ) XPBAK=-.5*C/A 

IF ( (XPEAK • LE . XBEG) .OR. (XPEAK . GE. XEND) ) GO TO 261 
RTEMP=SQRT (ABS ( (A*XPEAK**2*C*XPEAK*D) /B) ) 

IF (RTEHP. GT. REND) REND=RTE5P 
IF (REND. GT. RMB) RMB=BEND 
CONTINUE 
CONTINUE 

NWEDG=NWEDGE (1) NWEDGE (2) 

IF(NWEDGE(2) .EQ.O) THETAZ=180.0 
IF (SAVE) REWIND 9 

IF(NWEDG.GT.LIMIT(1) ) CALL DIAG ( 1, LIBIT ( 1) / NWEDG) 
IF(MNH.GT.LIHXT(5) ) CALL DIAG (5, LIMIT (5) ,BNB) 

IF (BNB.GT. LIMIT (6) ) CALL DIAG (6, LIMIT (6) ,MNB) 

IF (NS. GT. LIMIT (8) ) CALL DIAG (8, LIMIT (8) , NS) 

IF ( (NS .HE. 0) .AND. (HJ.C m LIMIT (9) )) CALL DIAG (9, LIMIT (9) ,HJ) 
JNH=INH 

DELA NG (1 ) =THETAZ/NWL^GI (1 
DELANG (2) =0* 0 

IP (NWEDG E (2) .NE. 0) DELANG (2) = ( 180.-THETAZ) /H WEDGE (2) 
SINANG=SIN (ANGLE/1 80. *PI) 

COSA NG=COS (ANGLE/1 80 . *PI) 

XR=BW*NW 

XLIH (NSTEPM) S XR 
RH=BH*NH 
VOL=PI*RM*RM*XR 
NXA=NW*NH* NWEDG 
NXB=MW*MH*NWEDGE (1) 

NXC=LW*LH*NWEDGE(1) 

IXA=NW*NH*N WEDGE (1) 


RUN2200 


RUN2220 

RUN2230 

BUN2240 

RUN2250 

RUN2290 

RUN2300 


RUN2320 

RUN2330 

RUN2380 

RUN2390 

RUN2400 

RUN2420 

BUN2430 

RUN2440 

RUN2450 


C 


A -10 , 



GKBEXT 


DECK A 


VT 


PRINCETON UNIVERSITY TIBE-SHABING STSTEH 


ft 

h 


* 


* 

l 

$ 

N- 


! 

I 


| 

i 



si 

j 

: 4 

6 

i 


NBX*NXA+NXB+NXC 


RUN2460 

IP(NBX.GT.LIHIT(7) ) CALI 

DjAG(7/LiBi^ri) 

RUN2470 

BR*SQRT (TR) 


sm?.480 

DO 113 N = 1,5 


ft$!fS490 

RLD (N) =BH*LD (N) 


ROJteSOO 

RLD(6) -RB 


RUN2510 

LHP (1) *1 


RUN2520 

BNFB«RLD (1) 


RUN2530 

B*BHPB*RHPB 


BUN2540 

C*B 

ORIGINAL VW W 

RUNS 550 

DO 114 N=2,6 

OF POOR QUALITY 

HtfH2$£'0 

A-RLD (N) *RLD (N) 


RUN2 570 

LHP ( N) *LHP (N- 1 ) *LP (N- 1 ) 


RUN2580 

B*B+ (A-C)/LHP(N) 


RUN2590 

D~RLD (H) /LHP (N) 


RUK2600 

IP (D.GT. BHPB) RHFfl*D 


RUN2610 

C-A 


RUN2620 

INB )S INH*RB*RB/B 


RUN2630 


DDN*INB/VOL 
DO 140 MT=1,BSP 
NTB (NT) *RBA (ST) /EBB 
PDN (BT) *RNU (BT) *DDN 
DPA (BT) *RNU (BT) 

BTA (BT) *SQRT (HTB (BT) ) 


SR (BT) ss S*BTA (BT) 

RUN2730 

SN (BT) *SR (BT) *COSANG 

RUN2740 

ST (BT) =SB (BT) *SINANG 

R0N2750 

DO 117 K=1,BSP 



DAB (K, BT) =DIR (K, BT) * (TR**/TP) ** (ETA (K, BT) /2 . ) /D BR 
CN8 (K # BT) ~DDN/DAfl (K # BT) *1.414214 
BT-ABIN1 (BTA (K) , BTA (BT) ) 

VBl»S + 3.*(‘i.+SQRT(TR) ) /BT 

VR2=3.*SQRT( (1. +2. *S**2/ (5. +CHIB) )*(1./»TB (K) ♦ 1. /WTB (BT) )) 

CB (K # BT# 1) =AHAX1 (VR1/VB2) 

CN (K # BT, 1, -RAND (0) *CB (K,BT, 1) 

DP=PHI (K,BT) * (CHI (K) + CHI (BT) +2.) -1 
DS=PHI (K,BT) *(2.-.5+ETA (K,BT) )-1.0 
DO 917 Na2 # 3 
aPB=ACR**AHIN 1 (DP# DS) 

IP((DP.GT.O.) .AND* (DS.GT.O.) ) XPB= (DP/(DF+DS) ) **DF* (DS/(DF+DS)) **DS 
XPN*ACR**ANAX 1 (DPfDS) 

IP ( (DP. LT. 0.) .AND. (DS.LT.O.) ) XPN* (DP/(DP+DS) ) **DP* (DS/ (DF*DS) ) **DS 
CB (K # BT.y N) -XPH-XPN 
£N(K # BT,N) =RAND (0) *CB(K,BT,N) 
l>P»CHI (K) 

DS=CHI (BT) 

917 CONTINUE 
117 CONTINUE 


ARG=SN (BT) 

RUN2760 

DO 119 N T= 1 # 2 

RUN2770 

D*ERRP (ARG) 

RUN2780 

TEBPA=EXP (-SN (BT) *SN (BT) ) /3. 544908+0. 5*ARG*D 

HUN2790 

TEBPA=TE BPA/BTA (BT) 

RUN2800 

TEHPC=0 

RUN2810 

DO 118 **1,6 

RUN2820 


A-ll 


GKBEXT DECK 


A 


PRINCETON UNIVERSITI TINE-SHARING STSTEN 


fUE: 



TEHPB=RLD (N) *RLD (N) 

RUN2830 

*[ 

TENPD=INM*TENPA*DTN/ (XR*RM*RN) * (TENPB-TEHPC) /LWP (N) 

RUN2840 

DO 116 K=1,NHEDG 

RUN2850 

* ; r "• 

' 1 4 

DELTH = DELANG (1) 

RDN2860 

i 

4 

IF (K.GT. NWEDGE (1) ) DELTH-DELANG (2) 

RUN2870 


ENT (NT, NT, N, K) =TEN PD*DELTH/180. 

RUN2880 

116 

REN (NT, NT, N, K) =0. OftlQf&AL FAt** |g 

RUN2890 

118 

continue ” 1 * 0 oh POOH QUALITY 

RUN2900 

RUN2910 

f r 

SSR=ARG*ARG 

RUN2920 


SSA (NT, NT) =ARG+SQRT (SSR«-2. ) 

RUN2930 

¥ * „ 

SSB (NT, NT} =SSA (NT, NT) ♦ (.25*SSA (NT, NT) -A RG) 

RUN2940 

, m 

ARG=-ARG 

RUN2950 

n 

ri; 

CHT-CHI(NT) 

IF (CHT.GT. 0, ) CNG (NT) =CHT**CHT*EXP (-CHT) 
IP (CHT.EC!,, 0. ) CNG (NT) -1.0 
IF (CHT.LT. 0.) CNG (NT) =ACP**CHT*EXP (-ACR) 
CNG (NT) =RAND (0) ♦CNG (NT) 

i 

!.* 

ANG=0. 

RUN2970 

- \ 
• (.! 

N=0 

RUN2960 

si* 

rn 

ARG^ST (NT) 

RUN2980 


TEHPD=INN/PI*DTN/RH*2./ (BTA (NT) *LNF(6) ) 

RUN2990 

y '* 

8 

DO 135 N= 1 , 2 
I*=NWEDGE (N) 

RUN3010 

ii 

IF (I. BQ. 0) GO TO 135 
DO 134 K = f ,1 

RUN3020 


N=N«-1 

RUN3030 


AA=ANG 

RUN3040 

i* * 

BB=DELANG ( N) 

RUN3050 

r‘ 

CC=AA*BB 

RUN3060 


ANG=ANG«-BB 

RUN3070 


THETA (N)=AA 

RUN3080 

. . 

DTH (N) -BB 

RUN3090 

■i - 

AA=AA*PI/180. 

RUN3100 

:»■ 

CC-CC*PI/1 80. 

RUN3110 


ARGA=ARG*COS (AA) 

RUN 3120 

[f; 

ARGC=ARG*CGS (CC) 

RUN3130 

r 

ENTS (NT, N) =0. 

RUN3140 

f 

REHS (1ST, R) =0. 

RUN3150 

1; ^ 

PTH(HT,NJ|=0. 

RUN3160 

In 

TEHPA=0. 

RUN3170 

JH 

IP (ARGA.LE.~10.) GO TO 120 

RUN3180 

jfS 

TEHP A=FNCTM (ARGA ,PIROOT,L,COEFF) 

RUN3190 


FTH (MT,N) =2. *PIROOT*TEMPA 

RUN3 200 

£ 120 

TEHPB=0. 

RQN3210 


IF (ARGC.LE.-10.) GO TO 125 

RUN3220 

N ^ 

TEHPB=FNCTN (ARGC, P IROOT, L, COEFF) 

RUN3230 

/ 125 

SONl=TEHPA+TEHPB 

RUN3240 


TEHPC=.5*SUN1* (CC-AA) *TEHPD 

RUN3250 

c 

IF (TEHPC.LT. 1.E-06) GOTO 134 

RUN3260 

aj 

CALL SIN PS N (ARGA , A RGC, 0 , INTGRL , PERCNT,COEFF, PI ROOT, SUN 1, FNCTH) 

RUN3270 

1 ®134 

ENTS (NT, N) =INTGRL*TENPD* (CC-AA) 

RUN3280 

CONTINUE 

RUN3290 

1 135 

I 140 

CONTINUE 

CONTINUE 

RUN3330 


ILE: GKBEXT DECK 


A 


PRINCETON UNIVERSITY TINE-SHARING SYSTEM 


XS (1)=«5*(XCB(1) -X START) *AKN 
DO 155 H=2 , ND 

155 XS (N) = (• 5* (XCB(N) + XCB (N-1) ) -XSTART) *AKN 
IP(NS.EQ.O) GO TO 160 
DO 159 1=1, NS 
N=NS (I) 

X=XS (N) /AKN+XSTART ORIGINAL PAGE B 

J*0 OF POOR QUALITY 

157 J*Jf1 

IP (X«GT« XLIH (J+2) ) GO TO 157 
CALL HEIGHT (X, Y, J,COEFF,3) 

TA NGN (I) = (IWS (I) -• 5) *DELANG £ 1 ) 

IP (IWS (I) *DELANG (1) . GT.THETAZ) TANGN (I) =THETAZ ♦ ( IWS (I) -NWEDGE 
15) ♦DELANG (2) 

Z=Y*SIN (TANGH (I) *PI/180.) 

Y=— Y*COS (TAHGN (I) *PI/180.) 

CALL NORHAL(EYE, JAY, KAY,ONE,COEFF) 

SNN=-S* (COSANG*EYE+SINANG*JAY) 

ST 1 = S* (COS ANG*ONE- EYE* SIN ANG* JAY/ONE) 

ST2=-S*SINANG*KAY/ONE 
DO 159 MT= 1 , HSP 

VL (NT, 1) =A MAXI (0. , SNN- VEL ( 1) /BTA (HT) ) 

VL (HT,2) =ST1 - VEL (2) /BTA (MT) 

VL (MT, 3) =ST2-VEL (3) /BTA (ST) 

DELV (HT, 1) =SNN*VEL (1)/BTA (HT)-VL(HT, 1) 

DEL? (HT, 2) =2. *VEL (2) /BTA (HT) 

DELV (NT, 3) -2 • *VEL (3) /BTA (HT) 

AH J=H J-1 
DO 159 K=1 , 3 
DO 159 J= 1 , HJ 

PV (HT, I, 1,J,K)-VL(HT,K) * (J- 1) /AHJ*DELV (HT, K) 

PV (HT, I, 2,J,K) -SL(HT,I,K) ♦ (J-1 ) /AHJ*DELS (HT,I,K) 

159 CONTINUE 

160 CONTINUE 

IF (YF.GT.O.) GO TO 169 

A=XSTART 

B=XCB ( 1) 

L - 1 

SUH1=PNCTN (A , PI FOOT,!, CO EFF) ♦PNCTN (B, PIROOT, L, COEFP) 

CALL SIHPSN (A,B,L,INTGRL,PERC NT, COEFP, PIROOT, SUN 1 , PNCTN) 
INTGRL=INTGRL/ (ABS (COEPF (2,L) ) *RNB*RHB) * (B-A) 

YCB (1) =INTGRL 
DO 168 N=2,ND 
A=XCB(N-1) 

B=XCB (N) 

IF (XLIH(L + 2) .GE.B) GO TO 167 
L=L+ 1 

167 SUH1 = PNCTN (A , PIROOT, L, CO EPF) +FNCTN (B, PIROOT, L, COEFP) 

CALL SIHPSN (A, B , L, INTGFL, PERCNT,COEFF, PIROOT, SUH 1 , PNCTN) 
INTGRL=INTGRL/(ABS (COEFP (2, L) ) *RHB*EHB) * (B-A) 

168 YCB (N) =INTGRL 


FUN3370 
RUN3380 
FUN3390 
RUN3400 
RUN3410 
RUN3420 
FUN3430 
RUN3440 
RUN3450 
RUN3460 
RUN3470 
RDN3480 
(1)-. RUN3490 
RUN3500 
RUN3510 
RUN3520 
RUN3530 
RUN3540 
RUN3550 
FUN3560 

RUN3580 

FUN3590 

RDN3600 

HDN3610 

RUN3620 

RUN3630 

FUN3640 

RUN3650 

RUN3660 

BUN3670 

RUN3680 

FUN3690 

RUN3700 

RUN3710 

SUN3720 

RUN3730 

RUN3740 

RUN3750 

RUN3760 

RUN3770 

FUN3780 

RUN3790 

RUN3800 

RUN3810 

RUN3820 

RUN3830 

RUN3840 

RUN3850 

RUN3860 

RUN3870 


169 LV=2 

IP (NWEDGE (2) • EQ. 0) LV= 1 

CALL CELL (THETAZ, LV, BW, BH, NW, NH, 0. , 0, 0, DELANG, NWEDGE, XC, YC,ZC, PNB) 

IP (NL».LT« 2) GO TO 170 RUN3890 
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CALL ZERO (NH,N0, NF A, NCA , NHA, 0, NHEDGE ( 1) , PNB) 

XLB=BW*NFA 

BWB=BN*NCA/MH 

BHB=BH*NHA/MH 

CALL CELL (THETAZ, 1 , BHB, BHB, MW, NH, XLB , NXA , 0, DELANG, NHEDGE, XC, YC 
1FHJB) 

IF (NL. LT. 3) GO TO 170 

CALL ZERO (MW,HH,NFB,NCB,NHe,NXA,NHEDGE(1) , FNB) 

XLC=XLB*-BWB*NFB 

BHC=BHB*NCB/LH 

BHC=BHB*NHB/LB 

CALL CELL (THETAZ, 1 , BWC,BHC,LW, LH, XLC, NXA , NXB, DELA NG, NHEDGE, XC, 
1C, FNB) 

170 CALL SBTRCT (1,IXA,NXA,BH,BH, DELANG, XC, YC , PNB ,XLI M,COEFP) 

LBV ( 1) =NBX+ 1 

LEV (2)=HBX*1 

IF (NL.LT. 2) GO TO 190 

NI-NXA+1 

NF=NXA*NXB 

LEV (1 ) =NI 

CALL SBTRCT (NI, NP, NP, BHB, BHB, DELANG, XC, YC, FNB, XLIH,COEFP) 

IF (NL.LT. 3) GO TO 190 
NI=NF«- 1 
NF=NBX 
LEV (2) =NI 

CALL SBTRCT (NI,NF, NF, BHC,BHC, DELANG, XC,YC, FNB, XLIM,COEFF) 

190 FNA=0.0 
M=0 

DO 210 N=1 , NBX 
NOHCEL (N) =0 

IP (FNB (N) . LE.O.) GO TO 210 
M=M* 1 

NUMCEL (N) =M 
FHA-FNA+FNB (N) 

DYOBH/2. 

IF (N.GT. NXA) DYC=BHB/2. 

IF(N.GT. NXA+NXB) DYC=BHC/2. 

YTC=YC (N) fDYC 
DO 200 LA=1 ,6 

IF (YTC.LE. RLD (LA) ) GO TO 201 

200 CONTINUE 

201 LKH (M) =LWF (LA) 

210 CONTINUE 

NPX=M 

IF (NPX. GT. LIMIT (4) ) CALL DIAG (4, LI MIT (4) , NPX) 

* 220 TIHE-0 
LARGE=0 
SAHP=0 
PBT=0 
NAV=0 
AIHE=0. 

TI*” 1 • 

NHAX=0 

DO 250 (IT= 1,3 
Cl (NT)*RAND(0) 


QRlGfNAL m?.*- i,e* 

0F p OO RQUAUn 


RUN3900 
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, ZC, RON3940 
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YC,ZRUN40 10 
RUN4020 
RON4030 
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RUN4150 
RUN4160 
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RUN 4 22 0 
BUN4230 
RUN4240 
RUN4250 
RUN4260 
RUN4270 

RUN4290 

RUN4300 

EUN4310 

RUN4380 

RUN4410 


VI/ 
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m ■ 


** 

C2 (NT) =RAND (0) 


RUN4420 


C3 (NT) =RAND(0) 
C7 (NT) =RAND (0) 

ORIGINAL PAGE 50 

RUN4430 

RUN4440 


C8 (NT) =RAND (0) 

RUN4450 

* 

D1 (MT) =RAND (0) 

OF POOR QUALITY 

RUN4460 


D2 (NT) =R AND (0) 

RUN4470 


D3 (NT) =RAND (0) 


RUN4480 


D4 (HT) =R AND (0) 


RUN4490 

8; 

PL (HT)=0. 


RUN4500 

i 

BTx (HT) =0. 


BUN4510 


BTB (HT) =0 . 
JNT (HT) =0 


RUN4520 

RUN4530 


NH (HT) =0 


RUN4540 

t. ’ 

DO 230 N=1,3 


RUN4550 


CTI (HT,N) =0. 


RUN4560 

i 

i 

CTR(HT,N)=0. 


RUN4570 

CNI(HT,N)=0. 


RUN 4 580 


230 CNR(HT,N)=0. 


RUN4590 

l 

DO 240 N=1,ND 


RUN4600 

i , 

DO 240 K=1,NWEDG 


RUN4610 

l 4 . 

NTS ( HT, N , K) =0 


BUN4620 

R 

NTSP(MT,N,K) =0 


RUN4630 

t ' 

fc 

St 

j? 

i- 

r- , 

k * ! 

HTSI(HT, N,K)=0. 
UTLI(HT,N,K)=0. 
UTTI(HT,N,K)=0. 
VTSI (HT,N,K)=0. 


BUN4640 

9 

UTL(HT # N,K)=0. 


RUN4650 

Ss 

UTT (HT, N, K) =0. 


RUN4660 

r. 

*.* 

fcr 

1' 

[V 

VTS(HT,N,K)=0. 


RUN4670 

240 HTS(HT,N,K)=0. 
DO 250 1=1,3 


RUN4680 

1 

(* 

i 

NTCF(HT,I) =0 


RUN4820 

DO 250 L~1,2 


RUN4830 

it 

r 

DO 250 K=1 , 3 


RUN 4 840 

1 

DO 250 J=1,HJ 


BUN4850 

i 

t 

NTCV (NT,I, L, J ,K) =0 


RUN4860 

v • 

250 CONTINUE 


RUN4870 

c 

DO 245 N=1,NPX 
DO 245 HT= 1, NSP 


BUN4690 

: 

NB (HT, N) -0 


RUN4700 

*sf 

NBF(HT,fJ) =0 
NBS (HT , N) =0 


RUN4710 

t 

NBT(HT,N) =0 


RUN4720 

». v 

DBA (HT ,N) =0. 


RUN4730 


XVA (HT,N) = 0. 


RUN4740 

M 

YVA (HT,N) =0. 


RUN4 75 0 


ZVA (HT,N) =0. 


RUN4760 

/* 

f-3 

SH 

IS 

3$ 

THPA (HT, N) =0. 
TBPA (HT, N) =0.0 
DO 245 N N= 1 , NSP 
T (HT, NN, N) =0.0 
FND=DDN 


RUN4790 

| 

245 CONTINUE 

DRP=2./(FND*S*S*RHB*RHB*PI) 


RUN4800 

RUN4930 


PCF=1,/(FND*S*RflB*BHB*PI) 


RUN4940 


£ 
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/ 


A> 


f&ft, 

7*i 




HT?=.5*DRF/S ORIGINAL P&?.., ; : -■* 

C9*RAND(0) *RWFN OF, POOR QUA? PV RUN4960 

LL=FNA/VOL*INH RUN4970 

WRITE (6, 2) 

WRITE (6,4) 

WRITE (6,5) (( (I,J,L, (ENT (I, J, K, L) , K= 1 , 6) , L= 1 , NHEDG) , J= 1 , MSP) , 1= 1, 2) 

WR T TE (6, 6) ( ( J, L, ENTS (J , L) ,PTH(J,L) ,L=1, NHEDG) ,J=1,HSP) 

WRITE (6,2) RUN5000 

CALL PRINT A (THETAZ, NWEDG E, TITLE, NAME,XCB,YCB,TB,ALPHA,SIG?iA,LD,LF,R0N5010 
1XLIM,C0EFP, LIMIT, MSP) 

CALL GAS (N HE DG, THETAZ, DELANG , N HEDGE, BTA ,C 1 ,DFA ,NM,RLD, LHP, FNB,DB, NRUN5030 
1 B, NBF, LPF»- PAU, PAV, PAH, PAX, PAY, PAZ, XLIH,COEPP,LH, LIMIT (4) , LIMIT (6) ,BDN5040 
2LARGE,BNM,MNB, DEBUG (1) , LCOL, NUMCEL,MSP,EF,CHI, CNG,CMG, NSP, LB,NBM, 

3NBN) 

CPUTYM=TPIND (0) 

IP (LARGE. NE.O) GO TO 345 RUN5060 

DO 265 1=1, MSP 

265 IP(NM(I) .GT. NMAX) NHAX=NH (I) 

CALL PRINTE (FNA, MSP, PNB, LEV,LHF, NM,RLD, XLIM, XC, YC, ZC,NB, NUMCEL, LKH 

1 , NSP) 

IF (DEBOG (2)) WRITE (6,1) 

CALL ACCOM (NMC,NPB,FNB,RB,PAU, PAV,PAH,ER,THP,TRP,XY, YV,ZV, LM ,MSP, 

1 NSP, LPF, NBF, NBM) 

CPA=ELTIHE (0) 

CPI=CPA 

GO TO 340 RON5130 

280 TIME=TIME+ 1 R0N5140 

285 IARGE=0 

CPI=ELTIHE (0) 

AIHE=TIHE*DTH RUNS 170 

IF (DEBOG (1)) WRITE (6,33) AIHE, CPC, CPM, CPI, CPB, CPA, (NM(I) ,1 = 1,3) , NMAX 
PRT=PRT+ 1 R0N5180 

SAHP=SAHP*1 R0N5190 

CALL COL IDE (CR ,CM,WTN,DB,DBA,NB, NCOL, LCOL, PAU, PA V, PA H, ER, T,LM, MSP, 
ttXBXSf*) , LIMIT (6) , NUMCEL, ETA, PHI, CHI ,CN 8 , NSP , LPF, LKH , NBF, NBH) 

RUN5220 

R0N5230 

u ) =o 

CJfCwisLTIHE (0) 

IF (DEBUG (1) ) HRITE (6, 33) AIME, CPC, CPM, CPI, CPB, CPA, (NM(I) ,1 = 1,3) , NMAX 
CALL HOVE(0, AKN,MJ, NS, NHEDG, THETAZ, XSTART, LIMIT (3) , LIMIT (1), LIMIT RUR5240 
1 (8) , LIMIT (9) , DELANG, NHEDGE, BTA,C2,C3, DFA ,FL, HTI, HTR, JNT, KNM, NM,XCBRUN5250 

2, XLIM, HS,IHS,NTCF, NTCV,FV,CTI, CTR,CNI, CNR, ALPHA, SIGMA, COEFP, HTS, HTRUN5260 
3SI,NTS, NTSF, UTL, UTT, VTS, PAU, PAY, PAH, PAX, PA Y, PAZ, LPF, LCOL,TB, MSP, ER 
4,CHI,CNG,CHG,NSP,0TLI, UTTI, VTSI) 

KNM ( 1) =NM ( 1) RUN5280 

KNM (2) =NM (2) RUN5290 

KNM (3) =NM (3) 

CPM=ELTIME (0) 

IF (DEBUG (1)) HRITE(6,33) AIME, CPC, CPM, CPI , CPB, CPA, (NM(I) ,1=1, 3), NMAX 
CALL PLOW (NHEDG, MNH, LARGE, BTA, Cl, C7,C8,D1,D2,D3, D4,DTH , NM, SN,ST, THRUN5300 
1 ETA, LHP, RLD, PTH, ENTS, REMS, SSA, SSB, PAU, PAY, PAH, PAX, PAY, PAZ, LPP, ENT,RDN53 1 0 
2REH, LCOL, MSP, BR f CHI, CNG,CHG, NSP) 

IF (LARGE. NE.O) GO TO 345 RUN5330 

CPB=ELTIME (0) 


r £ 
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IP (DEBUG (1) ) HRITB (6,33) AIME,CPC,CPM,CPI,CPB,CPA, (NH(I) ,1 = 1 ,3) ,NHAX 
CALL MOVE (1,AKN,MJ,NS,NWEDG, TBETAZ, XST ART, LIMIT (3) , LIMIT (1) , LIBIT 
1 (8) , LIMIT (9) , DELANG, MW EDGE, BT A, C2 , C3 , DFA , PL, HTI, HTR,JNT,KNM, NM,XCBBUN5350 
2, XLIM, HS,IWS,NTCP, NTCV , PV, CTI, CTR, CNI, CNR, ALPHA, SIGN A, COEFP, HTS, HTRUN5360 
3SI, NTS, NTSP, UTL, DTT, VTS, PAU, PAV, PAW, PAX, PAI, PAZ, LPP, LCOL, TB, BSP, ER 
4,CHI,CHG,CHG,NSP,UTLI, UTTI, VTSI) 

DO 330 BT= 1 , BSP 
CPB=CPB*ELTIME (0) 

IP (DEBUG (1)) WRITE (6, 33) AIHE, CPC, CPH, CPI, CPB,CP A, (NH(I) ,1=1,3) , NMAX 
H=0 RUN5410 

DO 290 N=1 , NBX RUN5420 

IP (NUMCEL (N) . EQ.O) GO TO 290 


B=M*1 

NB (MT, H) =0 
NBP (MT,M) =0 
290 CONTINUE 
NG=NM (MT) 
N=0 


original wc :: ^ 

OF POOR QUAuisV 


295 N=N+1 

IF (N.GT. NG) GO TO 310 
X=PAX (MT, N) 

Y=PAY (HT,N) 

Z=PAZ(HT,N) 

R=SQRT (Y* , Y+Z*Z) 

ARG=Y/R 

TANG= 1 80. * ( 1. - ARCCOS (ARG) /PI) 

IWDGE=TA NG/DELANG { 1) 

IF ((IWDGE. GE.NWEDGE (1) ) .AND. (DELANG (2) .NE.O.)) IWDGE= (TANG-THETAZ) 
1/DELANG (2) ♦NWEDGE ( 1) 

IP (IWDGE.LT. 0) I WDGE=0 

IP (IWDGE. GE.NWEDG) I WDGE=NW2DG- 1 

L=I/BW+1. 

IP (L. GT. NW) L=NW 
H= R/BH 

IP (H . GE. NH) M=NH-1 
K= (IWDGE*NH + M) *NW+L 
IP (K. LE. NX A) GO TO 296 

WRITE (6,40) L, B, K, MT, N, X, Y, NWEDGE, NWEDG, TANG, Z, IWDGE, NH, N W 
IP (DUMP) CALL ABEND (4) 

STOP 

296 KW=0 

IP(NL.EQ.I) GO TO 300 
IF (IWDGE. GE.NWEDGE (1) ) GO TO 300 
IP (PNB (K) . GT. 0. ) GO TO 300 
L= (X— XLB) /BWB+1. 

IP (L.GT. MW) L=MW 
M=P '3HB 

IP(H.GE.MH) M=MH-1 
K= (IWDGE*MH*M) *HW+L+NXA 
IP (K.LE. NXA+NXB) GO TO 297 

WRITE (6, 40 )L,H,K,HT,N,X,Y, NWEDGE, NWEDG, TANG, Z, IWDGE, HH, MW, NXA 
IP (DUMP) CALL ABEND (5) 

STOP 

297 IP (NL. EQ. 2) GO TO 300 

IP (PNB (K) • GT. 0. ) GO TO 300 


RUN 54 40 
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RUN5460 
RUN 5 47 0 
RUN5480 
RUN5490 
RUN5500 
RUN5510 
RUN5520 
RUN5530 
RUN5540 
RUN5550 
RUN5560 
RUN557 0 
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JRUN5770 
RUN5780 
RUN5790 
RUN5800 
RUN5810 
RUN5820 
RUN5830 
RUN5840 




&E: GKBEXT DECK 


PRINCETON UNIVERSITY TINE- SHARING SYSTEM 


1 . c; 


OF 


fi jo6 

301 


* \ 

l M 

U , 




306 


S.v 


l*\ 


302 


^07 


«04 

305 


iiV 


GO TO 306 


GO TO 301 


GO 

GO 


TO 

TO 


305 

302 


L* (X-XLC)/BBC*1. 

IF(L.GT.LB) L=LW 
H*R/BHC 
IP (M* GE» LH) H=LH-1 
K* (IHDGE*LH + H) *LH*LfNXA*NXB 
IF(K.LE. NBX) GO TO 300 

WHITE (6,40) L,H,K,HT, N, X, Y, NBEDGE, NBEDG, TANG, Z, IBDGE,LH,L8, NXA, NXB 
IF(DOHP) CALI ABEND (6) 

STOP 

LA=0 

IF (NOflCEL (K) * EQ. 0) 

LA*LA+1 

IF (R.GT. RLD (LA) ) 

KB=LBP (LA) 

KKB=LPF(MT,N) 

IP (KH.EQ.KKH) 

IP(KB.LT.KKB) 

N=KB/KKW 
A=RA ND (0) 

B=H 

B= 1 - /B 

IF (A.LT. B) GO TO 305 
PAX (HT,N)=PAX(HT,NG) 

PAY (HT,N)=PAY(HT,NG) 

PAZ (HT,N)=PAZ (NT,NG) 

PAU(MT,N)=PAU (MT,NG) 

PA V ( NT, N) = PA V (HT,NG) 

PAH (HT,N) = PAH (HT,NG) 

ER (HT,N)=ER(HT,NG) 

LPF(HT,N)=LPF(MT,NG) 

LCOL (NT,N)=LCOL(MT,NG) 

H = l). ^ 

NH (NT) = NH (MT) - 1 
NG=NK (HT) 

GO TO 295 
H-KK B/KW- 1 

IF ( (NM (MT) + M) .LE.HNH) 

LA RGE=3 
GO TO 345 
CONTINUE 
DO 304 L=1,H 
Nf! (MT) =NH (MT) ♦ 1 
NG=NM (MT) 

PAX(HT,NG)=PAX(HT*N) 

PAY (MT,NG)=PAY (MT,N) 

PAZ(NT,NG)=PAZ(MT,N) 

PAU(MT,NG) =PAU (MT, N) 

PAV(MT,NG)=PAV (HT, N) 

PAB (MT,NG) -=PAB (1T,N) 

ER (MT, NG) =ER (MT, N) 

LCOL (MT, NG) =LCOL (HT, N) 

LPF (HT,NG) -KB 
LPF ( MT,N) = KB 
Q=NUHCEL (K) 

J*NB (MT, Q) +1 


GO TO 307 
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IP(J.LE. HNB) GO TO 308 
IP (DEBUG { 1 ) ) WRITE (6,44) 8T,K,BNB 
308 NB (NT, Q) =J 

NBF(NT,Q)=NBF(BT,Q) *KW 
LB (N) =Q 
GO TO 295 
310 CONTINUE 

NBH (BT,1)=0 
DO 320 N= 1 , NBX 
H*NUBCEL (N) 

IF(H.EQ.O) GO TO 320 
A*NBF (BT,fl) 

DB (HT,fl) =A*DFA (BT) /PNB (N) 

NBf! (NT, H + 1) =NBN (NT,B) ♦ NB(JIT,H) 

NBN (B) =NBN (NT, fl) 

320 CONTINUE 

IP (NB (HT) • GT. NNAX) NNAX*NM (HT) 

DO 325 N= 1 , NG 
Q=LB (N) 

NBN (Q) =NBN (Q) *1 
HA=NBN (Q) 

325 Lfl (NT, NA) -N 


RUN6370 

AIBE 

FUN6400 

PUN6410 

RUN6430 

ORIGINAL PACiS &9 

OF POOR QUALITY RUN6450 


RUN6480 

RUN6490 


RUN6500 

RUN6510 


RUN 6 520 


330 CONTINUE 

IP (SABP.LT.ITS) GO TO 335 

CALL ACCUB (NBC, NPB, PNB, NB, PAU, PA V, PA W, ER,TBP,TRP,XV, IV,Z V, LB ,NSP, 
1NSP,LPF, NBF, NBB) 

SAHP=0 RUN6570 

IP (TIBE. LE. TST) GO TO 335 

CALL AVRGE (PNB, DB, DBA, NB, NBT, XT, TV, ZV , XV A, TV A, ZVA,TBP,TBPA,TRP,TRP 
1 A, MSP, NSP, NBP, NBS) 

NAV=NAV+1 RUN6600 

335 CPA=ELTIBE (0) 

CPI=CPC«-CPN*CPB*CPA 

CPJ=2.*CPI+5. 

340 CPUTYN=TFIND (0) 

IF (DEBUG (2)) WRITE (6, 33) AIBE,CPC,CPB,CPI,CPB,CPA, (NB(I) ,I=1,3),NBAX 
IF ( (TIBE.GEeTLIN) .OR. (CPUTTN. LE.CPJ) ) GO TO 345 
IF (PRT.LT.ITP) GO TO 280 
PRT=0 

345 WRITE (6,30) AIBE, KAWLS 

IP (DEBOG (3) ) WRITE (6,31) CPOTTH 
WRITE (6, 32) (NB (I) ,1=1,3) 

WRITE (6, 34) ( (NCOL (I,J) ,J=1,3) ,1=1,3) 

WRITE (6,35) (JNT(I) ,1=1,3) 

IF (LARGE. NE. 0) GO TO 360 
WRITE (6,36) NBAX 
IP (.NOT. SAVE) GO TO 355 
IF (PRT.NE. 0. AND. CPUTYH.GT. CPJ.AND.TIME.LT. TLIB) GO TO 355 
WRITE (9) DENP,U,XREF,TRF, KA WLS, NL,N W,NH, B W, MH,LW, LH,N XA , NXB, NCA 

1 ,NCB,NFA, NPB, NBA , NHB , B W , BH , B WB, BHB, BWC, B HC, XLB, XLC ,PI,NREGRUN6930 

2 ,S,SINANG, COSANG, AKN, NBX, RM, XR , ND, TIME, DTM, TI, ITS, ITP, TST RUN6940 

3 ,TLIN,RBA,BNO,DIR,XSTART, JNfl,MNM, NNB,TR, BZC, CN7 , DRF, FCF 

4 ,FNA,BTF,INB,ITXPE, JTTPE, BJ, NA V, NBAX,NS, NWEDG, PRT, SA BP 

5 , BTA,C1,C2,C3,C7,C8, DAB, DP A, PL, DELANG, FDN, HTI, HTH, JNT, KNB RUN6970 

6 , NB, WTB,C4 , VRB, NCOL,LD,LP, LWF, RLD,CTI, CTR, CNI,CNR, LEV, SN RUN6980 


RUN 6 650 
RUN6660 
RUN6670 


RUN6740 

RUN6750 

RUN6900 


RUN6950 

RUN6960 
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A ,DBA,NB,NBF,NBT,TMP,XV,XVA,IV, 

B ,NUHCEL,PAU,PAV,PAW,PAX,PAY,PA 

C, ETA,PHI,CHI,CN,CH,CNG,CMO,CN0,TRP,THP 

D, UTLI, UTTI , VTSI, ER ,RHB,LK W, NBS, LB, NBH, 
REWIND 9 

WRITE (6, 50) 

355 CONTINUE 

IF(TIHE.LE.TST) GO TO 350 
DT=AIME-TI 

CALL PRINT1 (DT, COSANG— “ 

1CTR.CNI.CNR) 


) LUBIiflUfi 

IF (TIHE.LE.TST) GO TO 350 

DT=AIHE-TI R 

CALL PRINT 1 (DT, COSANG. SI NANG. RNA. RNU, DRF,FCF, HTP.FL, HTI. HTR. CTI. 
1CTR.CNI.CNR) 

CALL PRINT2 (AKN, XSTART.DT, RNU , RHA , DRF, FCF. HTP, UTLI, UTTI, VTSX.HTSI, 
1DELANG.N WEDGE. XS , XCB, YCB, HTS , NTS, NTSF, UTL, UTT, VTS, LIMIT (3) , 

2LINIT (1) .MSP) 

IF (NS. NE. 0) CALL PRINT3 ( BSP. MJ, NS , NWEDG, LIMIT (3) , LIMIT ( 1) . 

1 LI HIT (8) .LIMIT (9) , RHA, XS, IWS, MS, TANGN, NTSF, NTCP, NTC V, FV) 

CALL PRINT 4 (MSP.CHI,RNU,NSP,TRPA,NUHCEL,FDN,WTM,DBA,NBS,TNPA,XVA, 
1YVA,ZVA,1, NBT, XC , YC, ZC ,LEV,LK W) 

GO TO 353 R 


RDN6770 


lux .ni ip/ , n a »r j 

IF (NS. NE. 0) CALL PRINT3 ( MSP, HJ, NS , NWEDG, LI MI 

1 LI HIT (8) .LIMIT (9) , RHA, XS, IWS, MS, TANGN, NTSF, HTCP, NTC 
CALL PRINT 4 (MSP.CHI,RNU,NSP,TRPA,NUHCEL,FDN,WTM,DBA, 
1YVA,ZVA,1, NBT, XC, YC, ZC ,LEV,LK W) 

GO TO 353 
350 CONTINUE 

CALL PRINT4 (MSP, CHI, RNU, NSP.TRP, NUHCEL.FDN, WTH.DB, NB 
10.NBP, XC.YC.ZC.LEV.LKW) 

353 IF (DEBUG (2)) WRITE (6,1) 

IP ( (TIME.LT. TLIM) • AND. (CPUTYH.GT.CPJ) ) GO TO 280 
IP (IC.EQ.ICOPY) RETURN 

tr-Tri 1 


,THP,XY, YV.ZV, 


RUN6860 


IC=IC+1 DUN708 

WRITE (6, 2) 

WRITE (6,4) 

WRITE (6, 5) ( ( (I, J,L, (ENT (I , J , K , L) ,K=1,6) ,L=1, NWEDG) ,J~1,MSP) ,1=1,2) 

WRITE (6,6) ( (J.L.ENTS (J,L) , FTH (J,L) , L= 1, NWEDG) ,J=1,NSP) 

WRITE (6,2) RDN712 

WRITE (6,3) IC RUN713 

CALL PRINT A (THETAZ, NWEDGE, TITLE, NAME, XCB, YCB.TB, ALPHA, SIGMA, LD,LF, BUN7 ' 

1 XLIH, COE PF, LIMIT, MSP) 

CALL PRINTB (FNA, MSP, FNB, LEY, L WF, NH.RLD.XLIH, XC.YC, ZC.NB, NUMCEL.LKW 
1 , NSP) 

SA?E=. FALSE. 

GO TO 345 I 

360 WRITE (6, 38) (DBG1 (I, LARGE) ,1=1,3) 

IF (REDO) GO TO 364 
IF (DUMP) CALL ABEND (9) 

STOP i 

364 CONTINUE 

IF (NEW) GO TO 365 

READ (9) DENF.U.XREF.TRF, KA WLS, NL, NW, NH , M W, MH, LW, Lfl, N XA, NXB.NCA 

1 ,NCB,NFA,NFB,NHA,NHB,BW,BH,BWB,BHB,BWC,BHC,XLB,XLC,PI, NREG 

2 ,S, SINANG, COSANG, AKN, KBX , RN , XR , ND, TI ME, DTM.TI, ITS, ITP,TST 

3 , TLIM, RMA,RND.PIR.XSTART,JNM,MNM,MNB,TR,BZC,CN7, DRF, FCF 


I, KNM 
V, SN 
VELR 


OraQlWJL W'm, >•- 

OF POOR QU AL! 


I LE : GKBEXT DECK 


A 


PRINCETON UNIVERSITY TINE-SHARING SYSTEM 


8 ,IWS,TANGN,XLIB,COEFF,XCB,XS,YCB,TB,ALPHA,SZGMA,NTS,NTSF 

9 ,UTL,UTT,VTS,HTS,HTSI, ENT, REM, ENTS, REMS, FTH, THETA, DTH,TNPA 

A ,DBA.NB,NBF,NBT,TBP,XV,XVA,YV, YVA,ZV,ZVA,T,DB, PNB,XC,YC,ZC 

B ,NUMCEL,PAU # PAV,PAW, PAX,PAY,PAZ, FV, NTC V, NTCP,LPF, LCOL, LH 

C, ETA ,PHI ,CHI, CN,CN,CNG # CMG,CN8,TRP,TRPA,THETAZ,NWEDGE, BSP, ANGLE, TF 

D, UTLI, UTTI , VTSI r uP. ,RHB , LKW, NBS, LB, NBH,NBN 
REWIND 9 

365 JMB=9*JNB/1G 

ANM-INH RUN7260 

INB=9«‘ANM/10 

DDN=.9*DDN ORJGfim W\C£ f!9 

DRF=DRF/ . 9 OF POOR QUALITY 

FCF=FCF/.9 

HTF=HTF/.9 

DO 370 BB=1,MSP 

FDN (NS) =FDN (Hfl) *INB/ANB 

DO 366 KK-1,MSP 

366 CM0 (KK,HM) =CN8 (KK, MM) *• 9 
DO 370 LT= 1, NWEDG 

ENTS (MB, LT)=ENTS (MM, LT) *1 NB/ANB 
REBS (MB, LT) =0.0 
DO 370 NK=1,2 
DO 370 NJ=1,6 

ENT(NK,BM,NJ,LT)=ENT (NK, BN, NJ, LT) *INM/ANB 
370 REN (NK,BB,NJ,LT)=0.0 
IP (NEW) GO TO 220 
TST=TIBE+TST 
TI=— 1. 

PRT=ITP 
WRITE (6, 2) 

WRITE (6, 4) 

WRITE (6,5) (((I,J,L, (ENT(I,J,K,L) , K= 1 , 6) , L= 1 , NWEDG) , J=1 , MSP) ,1= 1, 2) 

WRITE (6, 6) ( (J,L,ENTS (J,L) , FTH ( J,I) , L=1 , NWEDG) ,J*1,BSP) 

BE2TE (6,2) 

IF ( (LARGE. EQ.2) .OR. (LARGE. EQ. 3) ) GO TO 280 
REDO=. FALSE. 

GO TO 360 

END RUN7410 


SUBROUTINE DIAG (N, ITEST, NUB) 

REAL*8 PAR.’B(10)/» NWEDGE*,* NBEG*,* ND',* 

1 B NB • , • MNB*, • HBX 1 , • NS',* MJ*,' 


DIAG010 

NPX* ,» 

BSP'/ 


DIAG040 

DIAG050 

DIAG060 

FORMATS DIAG070 

DIAG080 

32 FORMAT (9X, 'ENT, REM, ENTS, REMS, FTH, THETA, DTH') DIAG090 

42 FORMAT (///5X # 43H ARRAY DIMENSIONS ARE ABOUT TO BE VIOLATED./) DIAG 100 

44 FORMAT (5X, 18H MAXIMUM VALUE IS I5,20H, WHEREAS YOU INPUT 15, 3H (,DIAG110 
1A8, 1H) ) DIAG 120 

56 FORMAT (/5X,78H IF YOU DESIRE TO USE THIS VALUE, THE FOLLOWING ARRADIAG 130 
1YS MUST BE RE-DIMENSIONED./) DIAG 140 

62 FORMAT (9X, *HTS,HTSI, NTS, NTSF,UTL,UTT,VTS») DIAG150 


64 FORMAT (9X # * XLIN, COEFF'//1 1 X, * NOTE THAT THE XLIH ARRAY BUST BE DIBEDIAG160 


a 


fill: 

€' 


GKBEXT 


BECK 


A 
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* 

Y» 


t 


f- 

t 

a. 


f* „ 

t * 



k* 

fc 

'a* 

¥ 

t* 

* 

I 


G : 


r 

* 

v 

4 


1NSIONED TO 3 BORE THAN THE COEPP ARRAY.*) 

66 FORMAT (9X, * XCB, XS, YCB, T8, ALPHA, SIGMA*) 

68 FORMAT (9X,» DBA, NB, NBP, NBT, THP, TNPA, XV, XVA, YV, YVA,ZV, ZVA,T, DB*) 
70 FORNAT(9X, *LPP, PAD, PA V, PAW, P AX, PAI, PAZ ,LCOL* ) 

72 FORMAT (8 X, 3H LM) 

74 FORMAT (//5X,76H IP YOU CHANGE THE ARRAY DIMENSIONS, ALSO CHANGE 
IE ‘LIBIT* DATA STATEMENT.) 

75 FORMAT (9X, 'ALL ARRAYS ASSOCIATED HITH SPECIES*) 

76 FORMAT (9X, *FNB,XC, TC,ZC, NUHCEL*) 

70 FORMAT (9X, *FV, NTCV, NTCF, NS,I WS, SL, DELS,TA NGN • ) 

80 FORMAT <9X, *PV, NTCV*) 


WRITE (6, 42) 

WRITE (6, 44) ITEST, NUH, PAR AN (N) 
WRITE (6, 56) 

GO TO <1,2, 3,4, 5, 6, 7,8, 9, 10) ,W 

1 WRITE (6, 62) 

WRITE (6^ 32) 

GO TO 11 

2 WRITE (6, 64) 

GO TO 11 

3 WRITE (6, 66) 

WRITE (6,62) 

GQ TO 11 

4 WRITE (6, 68) 

GO TO 11 

5 WRITE(6, 70) 

GO TO 11 

6 WRITE (6, 72) 

GO TO 11 

7 WRITE (6,76) 

GO TO 11 

8 WRITE (6,78) 

GO TO 11 

9 WRITE (6,80) 

GO TO 11 


onmmi: p.v,. ; •* 

0F POO# (tij.yjyf 


DIAG170 
DIAG180 
DIAG190 
DIAG200 
DIAG210 
Til DI AG 220 
DIAG230 

DIAG240 
DIAG250 
DIAG260 
DIAG270 
— DIAG280 
DIAG290 
DIAG300 
DIAG310 
DIAG320 

DIAG340 

DIAG350 

DIAG370 

DIAG390 

DIAG400 

DIAG420 

DIAG440 

DIAG460 

DIAG480 

DIAG500 

DIAG520 


; 10 WRITE (6,75) 

i. 11 WRITE (6, 74) 

-* STOP DIAG540 

END DIAG550 







£ 



SUBROUTINE PRINTA (THETAZ , NWEDGE, TITLE, NAME, XCB ,ICB,TB, ALPHA, SIGMA, PBAOO 1 0 


1LD,LF,XLIH, COEPP, LIMIT, MSP) 

INTEGER TST, TLIH, TIME PRA0030 

LOGICAL SAVE, NEW PRA0040 

DIMENSION NWEDGE (2) ,LIMIT(1) ,TITLE(6) , NAME (2) , XCB ( 1) , YCB (1) ,TB (1) 
DIMENSION ALPHA (3, 1) ,SIGHA (3, 1) ,LD (1) , LF (1 ) , XLIM (1 ) , COEPP (4, 1) PRA0060 

DIMENSION RNU (3) ,RHA (3) ,CHI (3) , DIR (3,3) , PHI (3,3) ,ETA (3,3) 

DIMENSION WTH (3) , DAM (3,3) ,VELS (3) ,XSP(3) 

COMMON /FIRST/NL,NW,NH,MW,MH,LW,LH,NXA,NXB,NCA,NCB,NFA,NFB,NHA,NHBPRA0070 
COMMON /SECND/BW, BH PRA0080 

COMMON /THIRD/PI, NREG, S,SINANG, COSANG, AKN PRA0090 

COMMON /FIFTH/ND, TIME,DTM,TI, ITS, ITP, TST, TLIH, RNA, RNU, DIR PBA0100 


A-22 


F 


PILE: GKBEXT DECK 


A 


PRINCE TOM UNIVERSITY TIME-SHARING SYSTEM 


COMMON /SIXTH/RHB, XSTART, JNM, MNM, HNB,NEV,SAVE, PERCNT,NSR,TR 
COHHON/EIGTH/DENP, U, TP, ANGLE, TRP, CHI, PHI , ETA, NTH, DAN, VELR, XREF 
DATA NOT/* NOT •/ 


pH 

H 


PRA0110 

PR AO 120 
PRA0130 

__ PRA014Q 

FORMATS ORlQfNAL (£} . 

RHAa OF POOR QUALITY ’ PRA0170 

1 FORMAT (161,40 (*-') ,T74, *1 '//9X, '3-D' ,12, '-FLUID PROGRAM - •) 

2 FORMAT (•♦*,31X,A4) PRA0190 

3 FORMAT (’ ♦• ,35X, 'A RESTART OF A PREVIOUS RUN' ,T74, ' I '/12X,2PRA0200 

1A4,' - * ,6 A4, ' - ',12,' REGIONS', T74,'I*. 16 (/T74,'I») ) PRA0210 

4 FORMAT (7X, 'FRONT OP BODY = ',E12.4,» XSTART MAX HEIGHT = ',E12.4,' 

1RMB ' ,T74, ' I'/7X, » X-LIHIT' ,T37, • BODY COEFFICIENTS ' ,T74, *1 ') 

6 FORMAT (5 FI 4. 6, 3X, ' I* ) PRA0240 

10 FORMAT (IX, 72 ('-' ) ) PRA0250 

12 FORMAT (//14X, ' PARAMETERS OF SEGMENTS FOR BODY COLLISIONS • ,T96, • I'/ 

18X, 'X-COORD. TEMP. ALPHA1 ALPHA2 ALPHA3 SIGMA 1 SIGMA2 
2 SIGMA3 AREAS', T96, 'I') 

14 FORMAT(4X,E12.4,7F9.4,E12.4,T96, 'I') 

16 FORMAT (23X,'NEIGHTING FACTORS'/1X, 1016, T96, • I ' ) 

17 FORMAT (///25X, 'ARRAY STORAGE USFD'/5X, 16, ' *' , 1016 ,T96 , • I* ) 

18 F0RKAT(1H1/17X, 'LENGTH OF CELL IN HEAN-FREE-PATHS = *,F12.4, • BN' 
A,T76,'I* 

1/17X, 'HEIGHT OF CELL IN HEAN-FREE-PATHS = «,F12.4,» BH',T76,'I' 

2/16X, 'NUMBER OF LI CELLS ALONG FLOW AXIS *',113,' NW',T76,'I* 

3/17X,' NUMBER OF Li CELLS IN RADIAL DIR* =',113,' NH',T76,'I' 

4/21X, 'NUMBER OF LEVELS OF CELL SIZE w*,I13,' NL',T76,'I') 

20 FORMAT (1 IX,' NUMBER OF LI CELLS IN FRONT OF 1,2 CELLS =',113,' NFA* 

1,T76, 'I'/15X, 'NUMBER OF AXIAL SUBDIVIDED LI CELLS =',113,' NCA',T 
276, 'I'/14X, 'NUMBER OF RADIAL SUBDIVIDED LI CELLS =',113,' NHA ' ,T7 
36, 'I'/ldX, 'NUMBER OF L2 CELLS ALONG FLOW AXIS =',113,' HW»,T76,'I 

4'/17X, 'NUMBER OF L2 CELLS IN RADIAL DIR. =',113,' MH',T76,'I«) 

22 FORMAT(1 IX, 'NUMBER OP L2 CELLS IN FRONT OF L3 CELLS =',113,' NPB' 

1,T76,'I'/15I, 'NUMBER OF AXIAL SUBDIVIDED L2 CELLS =',113,' NCB',T 
276, 'I'/14X, 'NUMBER OF RADIAL SUBDIVIDED L2 CELLS =',113,' NHB ' ,T7 
36, *I'/16X, 'NUMBER OP L3 CELLS ALONG FLOW AXIS =',113,' LW',T76,'I 

4'/17X, 'NUMBER OF L3 CELLS IN RADIAL DIR. =',113,' LH',T76,'I») 

23 FORMAT (3X, 'NUMBER OF AZIMUTHAL WEDGES IN LOWER ',13,' DEGREES =',IPRA0470 
113,' NWEDGE1 I'/3X, 'NUMBER OF AZIMUTHAL WEDGES IN UPPER *,I3,» DE 
2GREES =',113,' NWEDGE2 I'/) 

24 FORMAT (16X, 'BASIC TIME INTERVAL POR COLLISIONS =',E13. 4,' DTM 

1 I './8X, • TIME INTERVAL FOR SAMPLING FLOW FIELD INFO =»,E13.4,' DTS 

2 I '/24X, ' TIME INTERVAL FOR PRINTING =',E13.4,» DTP I'/9X, 

3 'TIME TO STEADY-STATE CONDITIONS (ASSUMED) =',E13.4,' TST I'/ 

419X, 'TIME AT WHICH RUN IS TERMINATED =',E13.4,' TLIM I'/) 

26 FORMAT (9X, 'INITIAL NUMBER OF MOLECULES - EITHER TYPE =',113,' INM 

1 I'/9X, 'MAXIMUM NUMBER OF MOLECULES - EITHER TYPE =',I13,» MN 

2H I'/1X,'MAX NUMBER OF MOLECULES IN ANY CELL - EITHER TYPE =',PRA0570 

3113,' MNB I») 

27 FORMAT (//22X,« VELOCITY OF FREE STREAM FLOW =',E13.4,» U',T76,'I'/1 

19X, 'SPEED RATIO OF FREE STREAM FLOW =',E13.4,' S' ,T76, 'I'/19X, 'MAC 
AH NUMBER OF FREE STREAM FLOW =',E13. 4, ' M », T76, • I «/1 9X .' SPECIFIC Pi 
BEAT RATIO (CALCULATED) *', B13. 4, • GAMMA* ,T76, 'I '/ 35X, • AEG 

2LE OF ATTACK =',P13. 4,' ANGLE I »/16X, ' NUMBER DENSITY OP FREE ST 


£e: 
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3REAN PLOW =',E13.4,' N ', T76, • I'/1 9X, * TEMPERATURE Of FREE STREAM FL 
NON *• ,F13. 4,' TF* ,T76,'I'/16X, 'MOLE FRACTIONS OF FREE STREAM FLOW 
5=',3E13.4, • RNU I'/16X, 'MOLECULAR HEIGHTS OF SPECIES ABOVE = ',3F13 
^ 6.4,' RMA I*) 

28 PORMAT(//10X,' REFERENCE TEMPERATURE POR MOLECULAR DATA *',F12.4,' 

1TRP* ,T90,'I'/14X, 'CROSS-SECTION* ,26X, 'TEMP EXPONENT' ,T90,'I'/3 (31, 
23E12,4,3X,3F12.6,T90, 'I'/)/ 5 X, ' CHI/2- 1 • , 1 1 X, ' ROTATION AL PARAMETER 
3 PHI',T90, *I»/3 (F12.4,5X,3P12. 6,T90, 'I'/)) 

29 FOBMAT(9X, 'DATA SAVED ON TAPE 9') PHA0670 

k30 FORMAT <//3 IX, 'REP MOLECULAR SPEED >',£13.4,* VELR ' # T76 , ' I' /20X , • SP 

1ECIES FREE STREAM MOLECULAR SPEEDS' ,T76 ,' I'/14 X, 3E 16 . 6 ,T76 , ' I'/26X 
2, 1 REFERENCE MEAN FREE PATH =',E13.4,' XREF' , T76, *1 */26X, » SPECIES M 
3EAN FREE PATHS' ,T76,'I'/14X,3E16.6,T76,*I'/11X,' LONGITUDINAL KNUDS 
4EN NUMBER (CALCULATED) =', E13. 4, • AKN ', T76, *1 '/ 1 3X, ♦ TRANS VERSE KNUD 
5SEN NUMBER (CALCULATED) =' , E13 .4 , • AKT* ,T76 , • I' ) 

PRA0680 

* — PRA0690 

PRA0700 

IARRAY=708*LIMIT (3) * (32*56*LIHIT ( 1) ) ♦20*LIMIT(2) ♦LIMIT (4)* (120^4*LPRA0710 
UNIT (6)) ♦56»LIMIT (5) ♦LIMIT (8) * (68>96UINIT (9) ) ♦20*LIMIT(7) ♦224*LIMPRA0720 
2 IT (1) PBA0730 

WRITE(6, 1) MSP 

IF (NEH) WRITE (6 , 2) NOT _ PRA0750 


ORIGINAL PAtu' L-3 
OF POOR QUALITY 


WRITE (6, 3) NAME, TITLE, NR EG 
WRITE (6, 4) X3TART, BMB 
DO 100 1= 1 , NREG 

100 WRITE (6,6) XLIM (1^2) , (COEFF(J,I) ,J=1,4) 

WRITE(6, 10) 

WRITE (6, 12) 

DO 110 1=1, ND 

110 WRITE (6, 14) XCB(I) ,TB(I) , (ALPHA (J, I) ,J=1,3), (SIGMA (J,I) ,J=1,3) ,YCB 

KD 

WRITE (6, 10) 

WR ITE (6, 16) (LD (N) , LF (N) ,N=1,5) 

WRITE (6, 17) IARRAY, (LIMIT (I) ,1=1,10) 

WRITE (6, 18)BW,BH,NW,NH,NL 


PRA0760 

PRA0770 

PRA0780 

PRA0790 

PRA0800 

PRA0810 

PRA0820 


F (NL.GT.1) WRITE (6, 20) NFA, NCA , NHA,H W, MH 
IF (NL.GT.2) WRITE (6,22) NFB, NCB, NHB, LW , LH 
IETAZ=THETAZ 
JETAZ= 180-IETAZ 

WRITE (6, 23) IETAZ, N WEDGE (1) ,JE ffiZ, NWEDGE (2) 

DTS=DTM*ITS 
DTP=DTM*ITP 
AST=DTH*TST 
ALIH=DTH*TLIH 
CHT=0.0 
DO 120 J=1,MSP 
/ 120 CHT=CHT+CHI(J) *RNU (J) 

-> GAMMA= (7 • ♦2,*CHT) / (5, + 2. ♦CHT) 
f| AH=S*SQRT (2. /GAMMA) 

WRITE (6, 24) DTM,DTS, DTP, AST, ALIM 
WR ITE (6, 26) JNM, MNH, MNB 

WRITE(6,27)U,S, AH, GAMMA, ANGLE, DENF,TF, (RNU (I) ,1=1,3) , (RMA (I) ,1=1,3 

D 

WRITE (6, 28) TRF, ( (DIR (I, K) ,K=1,3), (ETA (I,K) , K= 1, 3) ,1=1,3) , (CHI (I), 


& 


PRA0850 

PRA0860 

PBA0880 

PRA0890 

PRA0900 

PBA0910 

PBA0920 

PRA0930 

PBA0940 

PBA0950 

PRA0960 

PRA0970 


0 


PRA0980 


1 


V ▼ / 
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1 (PHI (I , K) # K* 1 , 3) ,1*1,3) 

DO 210 I *1,3 

VELS (I) *0. 0 ORIGINAL PAGc \S 

210 XSP(I)*0.0 OF POOR QUALITY 

DO 220 J«1,HSP 
VELS(J) *VELB/SQRT (WTH (J) ) 

XT*0 . 0 

DO 215 fl*1,HSP 

?15 XT*XT* BN 0 (H) *DAH (J,H| *SQRT (1. ♦WTH (J) /WTH (H) ) 

:0 XSP(J) *1.414214*XREP/XT 
AKT* 1. /F.HB 

WRITE (6, 30) VPLR, ( YELS (I ) , I* 1 , 3) , XPEF, (XSP (I) , I* 1 , 3) , AKN, AKT 
IP (SAVE) WRITE (6,29) 

RETURN 

END 


PR A 1040 
PRA1 050 
PR A 1 060 


SUBROUTINE PFI NTB ( PN A # NS P , PN B , LEV , IV p, NH,R LD,XLIH, XC , YC, 7C, NB, 
1 NOHCEL , LK W , N) 

INTEGER*2 LKW, NB, NUHCEL 

DI HENS ION PNB (1) , LEV (1) ,LWP ( 1) , NN (1) , RLD (1) , XLIH (1) , XC (1) 
DIHENSION YC (1) ,ZC (1) , NB (N, 1) , NUHCEL ( 1) , LKW (1) 

COHHON /PIRST/NL 

COHHON /THIBD/PI, NRE> # S # SI N A NG, COSANG, AKN 
COHHON /POBTH/NBX 
PORHAT (1 H 1 ) 

POPHAT (2X, ' CELL GEOHETRY 

*/2X , 'BOX LEVEL POSITION OF CENTEH 


2EIG3TING POPULATION '/2X NO" . 1 21, ' X • , 7X, • Y 
3B 


THETA' 


PBB0050 

PSB0060 

PBB0070 

PRB0080 

PRB0090 

VOLUHE WPRB0100 
12X, • F ACTOPRBO 110 


3 

4 


15X , • CELL*') 


120 


140 

200 


POH.HAT (IX, I«,X5, 3X,2P8. 3, P7. 1,E12. 3, 2X,I2,4X,3I5, 3X, 14) 

PORHAT (2 X, ' TOTALS • ,E12.4,8X, 

WRITE (6, 1) 

WRITE (6, 2) 

DO 200 I s 1 ,NBX 

IP (NUHCEL (I) . FQ.O) GO TO 200 
X* (XC(I) -XLIH (2) ) ♦ AKN 
Y=YC (I) ♦AKN 
LEVEL* 1 

IP (1L.LT.2) GO TO 120 
IF (I.LT. LE V ( 1 ) ) GO TO 
LEVEL=2 

IP(NL.LT.3) GO 
IP (I.LT. LEV (2) ) 

LEVEL*3 
CONTINUE 
J=NUHCEL (I) 

H1 = NB (1, J) 

H 2=0 

IP (HSP-GE. 2) 

H 3=0 

I P (HSP.GE. 3) H3 = NB (3, J) 

WRITE (6, 3) I,LEVEL,X,T,ZC (I), PNB (I) , LKW ( J) , HI , H2, H3, J 
CONTINUE 
N H 2= 0 

IF (HSP.GE. 2) NH2*NH(2) 


315) 


TO 120 
GO TO 


120 


120 


H2 = NB (2 , J) 


PRB0150 

PRB0170 

PRB0180 

PBB0190 

PRB0200 

PRB0210 

PRB0220 

PRB0230 

PRB0240 

PRB0250 

PRB0260 

PR30320 


PBB0370 



A-25 


- 9 ■ 
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A 
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NH3«0 

IF (HSP.GE. 3) NH3*NP(3) 

WRITE (6, 4) PNA, Nil ( 1) , NH2, NN3 

RETURN 

END 


ORIGINAL P r.C~ ) 
OF PC OR 


PRB0390 

PRB0400 


SUBROUTINE S IHPS N ( A , B , L, I NTGR L , PEBCNT, CO EFF, PI FOOT # SUN 1, PUN) 
REAL I NT G R .. 

DIHENSION COEFF (4, 1) 


THE PURPOSE OF THIS SUBROUTINE IS TO PERFORM A SIHPSON'S RULE 
INTEGRATION. 

FORNAT 

4 FORNAT (/30H TOO HA NT ITERATIONS. TEST IS .,15.7, 14H, INTEGRAL IS 
15.7,14H IN THE RANGE E15.7,4H TO E15.7) 


PR EV = 0„0 
N» 4 
Nl*3 

G*. 5* (B-A) ♦A 

SUHE=FUN (G,PIROOT, L,COEPF) 

SUHO=0.0 
K = 0 

235 SUNE=SUNE>SUHO 
N 1*N UK 
K* N 1 ♦ 1 

IP (K.LT. 5000) GO TO 237 
NRITE(6,4) TEST , PR EV , A , B 
STOP 

237 SUHO=0.0 

DO 240 1*1, N1, 2 
( = (I* (B-A) ) /K+ A 

240 SUHO=SUnO*PUN (G, PI ROOT, L, COEFF) 

INTGRL«(SUnU4.*SUHO*2.*SUHE)/(3. *K) 
TEST*A BS (2.-4. ♦PRLV/(INTGRL*PFEV) ) 
PREV=INTGHL 

IF (TEST. GT. PEPCNT) GO TO 235 

RETURN 

END 


SIHP010 
SIHP020 
SIHP030 
-- T NP040 
SI V P050 
SIHP060 
SIHP070 
SIHP080 
SIHP090 
SIHP100 
E1SIHP 110 
SIHP120 
SIHP130 
--SIHP 140 
SIHP150 
SHIP 160 
SIHP170 
SIHP10O 
S I HP 1 90 
SIHP200 
SIHP210 
SIHP220 
SIHP230 
SIHP240 
SIHP250 
SIHP260 
SIHP270 
SIHP280 
SIHP290 
SIHP300 
SIHP310 
SIHP320 
SIHP330 
SIHP340 
SI1P350 
SIHP360 
SIHP370 


H 


FUNCTION PNCTN (X, PIROOT, L,COEPF) 
DINE NSION COEFF (4 , 1) 


THE PURPOSE OP THIS FUNCTION IS TO EVALUATE THE 
THE SIN PSON-S RULE INTEGRATION ROUTINE. 


A*COEPF{ 1,L) 

B=COEFF (2, L) 

C=COEFP (3 , L) 

D=COEPP(4,L) 

AA=4 . * (A-B) * (A *X *C) *X*C*C-4, 


* B*D 


FNCN010 

FNCN020 

FNCN030 

INTEGRAND USED INFNCN040 

FNCN050 

PNCN060 

FNCN070 

FNCN080 

FNCN090 

FNCN100 

FNCN110 
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I P (A A . LT . 0 . ) A A= 0. 

FNCTN*SQRT (A A ) 

RETURN 

END 

SOPBOOTINE HEIGRT(X,R,L,COEFF,I) 
L> I ME NS ION C0EPF(4, 1) ,DBG2(2, 3) 
DATA D BG 2/ * S BTR • , • CT • ,*GAS 


ORIGINAL PAC. ’ 
OF POOR QUAU'lV 


RON* , • 


THE PURPOSE OP THIS SUBROUTINE IS TO COHPUTE THE R-COORDINATE OP 
THE BODY CURVE AT ANY GIVEN X-COORDIN ATE, IN THE X-H PLANE. 

* •• •••••••• •• “ • • • « mm m ^ — • • mm w • ^ ^ • •• mm • • • • • • •• • • « 

PORN AT (//* MESSAGE *,I2,B17.8,3X,2A4) 

A RG*- ( (COEPP ( 1 , L) *X»COEPP (3,L) ) • X ♦COEPP (4 , L) ) /COEPP (2, L) 

IP (ARG.GE. 0. ) GO TO 100 
WRITE (6, 2) L, X, (DBG2 (H, I) ,M = 1 , 2) 

ARG»0. 

P *SQ FT (ARG) 

RETURN 

END 


PNCN 120 
PNCN130 
PNCN 140 
PNCN 150 

RGHT010 

HGHT020 

HGHT030 

HGRT040 

HGHT050 

HGHT060 

HGHT070 

HGHT080 

HGHT090 

HGHT100 

HGHT110 

HGHT120 

HGHT130 

HGHT140 

HGHT150 


FUNCTION PNCTN (ARG,PIBOOT, L, COEPP) 

DIMENSION COEPP (4, 1) 

D= 0. 

IP (ABS (ARG) .LT. 10. ) D=EX P ( - A RG* A RG) /PI ROOT 
E*0. 

IP (ARG. GT. -10.) E=AFG*ERRP (ARG) 

TEN*. 5* (D* E) 

PNCTH=TEM 

BETURN 

END 

SUBROUTINE CELL (TH , L EV , A , B , K , KH, XO, I , J, DELANG, 
DIMENSION DELANG (1) # NWEDGE (1) , XC ( 1) , YC ( 1 ) , ZC ( 1 
COMMON /THIRD/PI 


PNCM010 

PNCM020 

PNCM030 

PNCM040 

PNCM050 

PHCH060 

PNCM070 

PNCM080 

PNCH090 

PNCM100 

NWEDGE,XC,YC,ZC,PNB) CELLO 10 


),PNB(1) CELL020 

CELL030 

CELL040 

CELL050 

CELL060 

POSSIBLE LEVELS) CELL070 
ED ' PN B' • CELL080 

S OP THE CENTER OP CELL090 
STORE THE RESULTS INCELL100 

CELL MO 


PURPOSE OP THIS SUBROUTINE IS TO 

1. COMPUTE THE VOLUME OP EACH CELL (ALL 3 
AND STORE THE RESULT IN THE ARRAY CALL 

2. COHPUTE THE X, R, AND THETA COORDINATE 

EACH CELL (ALL 3 POSSIBLE LEVELS) AND 
ARRAYS CALLED »XC», »YC», AND 'ZC*. 


INDEX=I+J 

ZO=0. 

DO 120 HT= 1, LEV 
ICNT=NBEDGE (MT) 

ANGLE = DELANG (MT) 

FACTOR* A NG LE/ 180. *PI*B*B*A 
Z=Z0-» 5* A NGLE 
DO 110 L= 1 , ICNT 
Z=Z* ANGLE 
Y=— . 5* B 
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DO 110 N*1,KH 

X»IO-.5*A 

Y*Y*B 

DO 110 11*1, K 
X*X»A 

INDEX*INDEX*1 
XC (INDEX) = X 
YC (INDEX) * Y 
ZC (INDEX ) = Z 

PNB(INDEX) 'FACTOR* (2*N-1) 

ZO*TH 

CONTINOE 

RETURN 

END 


110 


120 


PRINCETON UNIVERSITY TINE-SHARING SYSTFN 


CELL240 
CELL250 
CELL260 
CELL270 
CELL280 
CELL290 
CELL 300 
CELL J 1 0 
CELL320 
CELL 330 
CELL340 
CELL 350 
CELL360 
CELL370 


ORIGINAL P;r 
OF POOR QUALHV 


SUBROUTINE ZERO (NW IDE, NHI, NB EG, NLONG, H UP , N AR EA , I CN f, FNB) 
DINENSION FNB { 1) 


£ 


L 


THIS SUBROUTINE SETS THE SIZES TO ZERO OF THOSE CELLS WHICH ARE 
TO BE SUBDIVIDED INTO SNALLER CELLS. 


NGO'NBBG* 1 
NSTOP=NBEG*NLONG 
DO 110 N = NGO, N STOP 
DO 110 n=1,NUP 
DO 110 L»1,ICNT 

INDEX'NWIDE* (NHI* (L- 1) *N-1) *N*NAREA 
110 FNB (INDEX) *0.0 
BETURN 
END 

SUBROUTINE SBTRCT (NGO, NTENP, NSTOP, B WIDTH, BHITE, DELANG, XC,YC, 
1IH,COEFF) 

DINENSION DELANG (1) ,XC (1) ,YC (1) ,FNB(1) ,XLIH(1) ,COEFF (4,1) 
COHKON /THIRD/PI, NREG 


THIS SUBROUTINE SUBTRACTS FBOH EACH CELL SIZE ( • F NB ' ARBAI) 
PORTION OCCUPIED BY THE BODY. 


F ACTOR* P I* DELANG(1)/180. 

DO 150 N=NGO, NSTOP 

IF (FNB (N) .LE.O.) GO TO 150 

DFNB*.005*FNB (N) 

SLICE*. 0 1*BMIDTH 

IF (N.GT. NTEHP) F ACTOR = PI*DELA NG ( 2) / 1 80. 
X = XC (N)-.5* (BWIDTH*SLICE) 

YBOT*YC (N) 5*BHIT E 
YTOP'YBOT* BHITE 
DO 130 fl*1,100 
X* X + SLICE 

IF(I.LE, XLIN (2) ) GO TO 130 


ZERO010 
ZER0020 
ZER0030 
ZERO040 
ZERO050 
ZERO060 
ZER0070 

ZERO080 

ZEB0090 
ZERO100 
ZERO 110 
ZERO 120 
ZER01 30 
ZERO 14 0 
ZER0 150 
ZERO160 
ZERO 1 70 

FNB, XLSBCT01 0 
SBCT020 
SBCT030 
SBCT040 

SBCT050 

SBCT060 
THAT SBCT070 
SBCT080 
SBCT090 

SBCT100 

SBCT1 10 
SBCT120 
SBCT130 
SBCT140 
SBCT150 
SBCT160 
SBCT170 
SBCT180 
SBCT190 
SBCT200 
SBCT210 
SBCT220 
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DO 120 L»1,NREG SBCT230 

lP(X.LT.XLIH(L + 2)) GO TO 125 SBCT2U0 

120 CONTINOE SBCT250 

GO TO 130 SBCT260 

125 CALL HEIGHT(X,YBODY,L, COEFF, 1) SBCT270 

IP (IBODY. LE.IBOT) GO TO 130 SBCT280 

YTEHP* YTOP SBCT290 

IP (YBODY.LT. YTOP) YTEMP*YBODY SBCT300 

FNB ( N) *FNB 'NJ-SLICE* (YTEMP* YT EHP- YBOT* YBOT) • FACTOR SBCT310 

130 CONTINOE SBCT320 

IP (FNB (N) . LT.DFNB) FNB (N) *0. SBCT330 

150 CONTINOE SBCT340 

RETORN SBCT350 

END SBCT360 


SOBBOOTINE I B PACT ( RH , G 1 , G2 , G 3 , ET, El, PH I, CHI , ET A, XB ,C IN) 

COHMON/THI RD/PI 

IF (PRI* EQ. 0. ) GO TO 20 

IP(CHX.EQ.O.) GO TO 20 

DF*P HI *C HI- 1 . 

DS*PHI* (2. -.5* ETA) -1. 

1C X s RA ND (0) ORIGINAL PA 1 

IP(X.EQ.O.O) GO TO 10 OF POOR QOA 1 

XT*X **DF * (1.-X) * *DS 
IF(XT.GT.XH) GO TO 15 
CIH*CIH* XT 

IF (CIN.LT. XN) GO TO 10 
CIH*CIH-XN 

15 ET* (1.-PHI) *ET* (1.-X} ♦PHI*E 
El* (1. -PHI) *EI*X*PHI*E 
20 GP*SQRT ( ET/RH) 

EP=2.*PI*RAND(0) 

CS X*2. *RAND(0)-1. 

SSX=SQBT (1.-CSX**2) 

G 1*GP*CS X 
G2=GP*SSX*COS(EP) 

G3*GP*SSX*SIN (EP) 

RETORN 

END 


SUBROUTINE GAS (N WEDG , TH ETAZ, DEL ANG, N WEDGE, BT A , Cl , DFA , N N, BLD, LBF, PNGASOO 1 0 
1B,DB,NB,NBF,LPP,PA0,PAV,PAW,PAX,PAY, PAZ, XLI N, COEFF , L H, 12, I 3, LARGE, GASO 020 
2 MNM, MNB, DEBOG 1 , LCOL, NONCEL, IP, EB , CHI, CNG,CHG, I , L B, NBM, NBN) 

INTEGER* 2 LN (I , 1 ) , LP F ( 1 , 1 ) , LCOL (1,1) ,LB(1) , NBN (I , 1) , NBN ( 1) 

I NTEGEB* 2 NB, NBF, NOHCEL 

INTEGEB Q GAS0050 

LOGICAL DO HP, DEBOG 1 GAS0060 

DINE NS ION DELANG (2) ,NHEDGE (2) , NOHCEL(I) GAS0070 

DINE NS ION BTA (1) ,C1 (1) ,DPA (1) , NN (1), RLD(1) ,LWF (1) ,FNB (1) ,CHI (1) 

DIMENSION DB(I, 1) , NB (1,1) ,NBP (I, 1) ,PAO (1,1) ,PAV (I, 1) ,PAH (I, 1) 

DINE NS ION PAX (I, 1) , PAY (I , 1) , PAZ (1 , 1) , ER (I, 1) , COEFF (4, 1) , XLIH (1) 

DIMENSION CNG (1) ,CNG (1) 

COMMON /PIBST/NL,NB,NH,NH,MH,LB,LH,NXA,NXB GAS0110 

COMMON /SECND/BB, BH,BBB,BHB, BUC, BHC, XLB, XLC GAS0120 
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(«•» i /f‘vrti/*ii, ;i«p,c4,mp 9, Ll 


tii «it »» • t *»* • t?i» 


%» :t to 


G A SO 1 30 
G4S0140 
•GISO 150 
GISO 160 
GISO 170 



nm*l til : 

• • • t • 

• * l t T » of 

licit loifcilt. 

GAS 0 19 0 


• ft • •,%» 

1 • 1 1 I 1 

nt 'M*', • 

Ml*. It) ‘Ml*. 

GAS0 190 

•• 

lilMM •«* ; 

• : • i ; 

r \ : • : t -» t 

r*ci tUICUl, 

GAS0200 


n • #• it •? 

mitt 

Ml •»»»•. • 

III*, IO ♦Ml*. 

GAS 0 2 10 

4. 


• :• n% til 

• Li MMUTl'.li* 

G A SO 2 20 



•tl* * • *H • *14 # I'M*! iH 

• » 4 •* • •» •..♦•••: *•*•% *■ rM»: ii 

I i IH«I i »• 1 1 iimi ii : 1 1 him it* i i f.»»* ' 

i • i . t*|l Hh i‘. .1 1 *.♦*. 

i, .•*.-••• h uni »t* # .* «ti ••• rim 

* •«« 


l t««i|i ^ * • •• * • • 

i j» >.*.* • . * * 

9* •* » »». ». 1 • 

»• I 

I f ♦ 

It ft, *1, ♦♦♦ * ♦ * i • * l 

I • • ♦ . • t | * i , •> 

• t • « • I 

( • (•«)« (|t , t«ll»i|t,i l .it l 

I M *|Vt| . 4 t, «.| . ♦ •* « ; • 

C • |f| *\ I | | • I, 

4*1. t ’i 

• • i*n 

?• t/»T* |f | 

Nl|t1 l i|«i*|i*», • #*-. 

Pit (f , «j . *.%fj , t; , 

*i 0.9 

ir (cm n?i • tt.- i.i ci • » in 

1*9. MABD (0) 

ip ( i t j. o. 3 ) co to i 

(f ) •HP f-|) 

IP (XT.GE.C9S (RT) ) CO TO 1 29 
CiG (RT) «Ci C (ST) ♦ IT 
IP (CRG (9 T) .LT.CIC(IT) ) CO TO 
CPG(BT) -CIIG (STJ-C1G If) 

EB (AT, I) -X 
X=XR*PAND (0) 

R=PB*RA!ID (0) 

LA«0 
LA *LA ♦ 1 

IP (R . GT. RLO (LA) ) GO TO 150 
A = LWP (LI) 


till ; t 4 f . | 


• . I t I t t 

• I t t ; • i f i 


* • It 

t II 9 

•• . • i « r 

i : • i 


r .k 502 JO 
IIS92I0 

• l-.USO 

SHU >7 

• I •• W • 0 

. I •. 4 i O 

• .i;> no 
r .11 > i M 

• ns i ; 9 

• IIS in 
•Its IIS 

.it: it! 
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.iti lit 
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4 t III 
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• It HI 
. | t I I * I 

.It III 
.1*1111 
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"♦i-; r»; 3 
r, 4 S ) f > 10 
<;i , 

G4S0S r >3 

GI30‘s60 

G4S0S70 
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GO TO 


GO TO 


ORIGINAL PKv 
OF POOR QU 


C9«C9*B/A 

IP (C9.LT.RWPR) GO TO 140 
C9-C9-RWFN 

IP (X.LE. XLIR (2) ) GOTO 159 

DO 152 L»1,NREG r - .- 

IF (X. LT. XLIR (L+2) ) GOTO 154 ORIGINAL^- 

l CONTI NOE OF POOR QUALl * < 

GO TO 159 

» CALL HEIGFT(X,YSODT,L,COPPP,2) 

IP(R.LT.TBODT) GO TO 130 
> PAX(NT,N)*X 
D*PI*RAN D (0) 

PAT (RT , N ) *R*COS (D) 

PAZ (NT, N) *R*SI N (D) 

TANG»180.* (1.-D/PI) 

IVDGE S TA NG/DEL A NG ( 1) 

IP((IUDGE. GE.NUEDGE(I) ) . AND. ( DELA NG (2) . N E. 0. ) ) IWDGE* ( TA 
1 /DELANO (2) ♦ NB EDG E ( 1) 

IP (IHDGE.G2. RWEDG) I WDGE=NVEDG-1 
L* X/BW ♦ 1 • 

IP(L.GT.NH) L=NW 
R=R/BH 

IP(H.GE.NH) H*NH-1 
K= (IWDGE*NH*R) *NW»L 
IF (K.LE. NX A) GO TO UO 

WRITE (6, 2) L, R, K, .RT, N, DELA NG, N WEDGE, NMEDG, D, TANG, IWDGE, NH 
IP (DORP) CALL ABEND ( 1 1) 

STOP 

I IP (NL. EQ. 1) GO TO 162 
IP (IWDGE. GE. NWEDGE (1) ) GO TO 162 
IP (PNB (K).GT.O.) GOTO 162 
L= (X-XLB)/BWB*1. 

IP(L.GT. RW) L*RW 
R*R/BHB 

IP(R.GE.RH) H=RH-1 
K* (IWDGE *RH* H) *HW*L+NXA 
IP (K.LE. NX A* NX 3) GOTO 161 

WRITE (6,2) L, H, K, NT, N, DELA NG, N W EDG E,NW EDG, D, TANG, IWDGE, RH 
IP (DORP) CALL AB EN D ( 1 2) 

STOP 

IP (NL. EQ.2) GO TO 162 
L* (X-XLC) /BWC+ 1. 

IP (PNB (K) .GT.O.) GOTO 162 
IP(L.GT.LW) L= LM 
H* R/BHC 

IP(H.GE.LH) R=LH-1 
K= (IWDGE*LH*H) *LW* L* NXA* NXB 
IP (K.LE. NBX) GO TO 164 

WRITE (6,2) L, H, K, RT, N, DELA NG, N W EDG B,NWEDG,D, TANG, IWDGE, LH 
IB 

IP (DUHP) CALL ABEND ( 13) 

STOP 

! IP (PNB(K).GT.O.) GO TO 164 
WRITE (6, 3) L,R,K,HT,N,PNB(K) 

IP (DORP) CALL ABEND( 14) 


GAS0580 

GAS0590 

GAS0600 

GAS0610 

G4S0620 

GAS0630 

GAS0640 

GAS0650 

GAS0660 

GAS0670 

GAS0680 

GAS0690 

GAS0700 

GAS0710 

GAS0720 

GAS0730 


IWDGE* (TANG-THETAZ) 


GO TO 
162 


GAS0750 
GAS0760 
GAS0770 
GAS0780 
GAS0790 
GAS0800 
GAS0810 
, N W G A SO 8 20 

GAS0830 
GAS0840 
GAS0850 

GAS0870 
GAS0680 
GAS0890 
GAS0900 
GAS0910 
GAS0920 
GAS0930 
, RW, NX A GAS0940 
GAS0950 
GASC960 
GAS0970 
GAS0990 
GAS0980 
GAS1000 
GAS1010 
GAS1020 
GAS1030 
GAS1040 
, LW, NXA, NXGAS 1 050 
GAS 1 060 
GAS 1070 
GAS 1080 
GAS 1 090 
GAS1 100 
GAS 1 1 10 


A-31 


vLE: GK BEIT DECK 


A 


PR INCETOi OH I V EBSITY TINE-SHARIRG STSTEN 


STOP 

164 Q* NUNCEL (K) 

IP (Q. GT. 0) GO TO 165 
WRITE (6, 2) Q, L, N, K, 1, DELANG,N HEDGE 


ORIGINAL T 
OF POC 




,NWEDG. D,TANG. IWDGE. LH. LW.NXA 


GAS1 120 
GAS1 130 
GAS 1 140 

NTRRICIIfn 


1,I,F 

IP (DORP) CALL ABEN D ( 15) 

STOP 

165 J*NB (NT, Q) *1 
KW*LWP (LA) 

LPP (NT,N) *KW 
LCOL (NT, N) *0 
LLC=LLC»KW 

IP (J.LE. NNB) GO TO 166 
IP (DEBOG 1 ) WRITE (6,4) NT, Q, NNB 
GO TO 167 

166 NB (NT, Q) *J 
LB (N) *Q 

iBP(NT,Q) *NBP(NT,Q) *KW 

167 IP (LLC.LT. LL) GO TO 110 
NN (NT) *N 

NBH (NT, 1) *0 
DO 170 0*1, NBX 
N=NUNCEL (Q) 

IP(N.EQ.O) GO TO 170 
A= NBF (NT, N) 

DB (NT, N) *A *DFA (NT) /PNB (Q) 

NBN (HT, N ♦ 1 ) *NBN (NT, N) ♦ NB (NT, N) 
NBN (N) *NBH (NT, N) 

170 CONTINUE 
NG*NN (NT) 

DO 175 N* 1 , NG 
Q=LB (N) 

NBN (Q) *NBN (Q) *1 
N A=N BN (Q) 

175 LN (NT, NA) *N 
180 CONTINUE 
RETURN 
190 LARGE=1 
RETURN 
END 


GAS1 160 
GAS 1170 
GA31 180 
GAS1 190 
GAS 1 200 
GAS1210 
GAS 1 220 
GAS 1200 
GAS 1 240 
GAS 1250 
GAS 1 260 
GAS 1 270 

GAS1290 
GAS1 300 
GAS1310 

GAS 1 330 


GAS1360 
GAS1 370 


GAS1380 


GAS1 390 
GAS 14 00 
G AS 1 4 10 
GAS 1 420 
GAS1430 


SUBROUTINE PLOW ( NW EDG , H NN, LA RGE, BTA, C 1 , C7, C0, D 1, D2,D3, D4 , DTH, N N, SN PLOOOI 0 
1, ST, THETA, LVP,RLD, PTH, ENTS , R ENS, SS A, SSB, PAU,PAV, PAH, PAX, PAT, PA Z, LPPL00020 
2P, ENT, BEN, LCOL, IP, EP,CHI ,CNG,CNG, I) 

I NTEGEB* 2 LPP, LCOL PL00040 

DINE NS ION BTA (1) ,D 1 (1) ,D2 (1) ,D3 (1) ,D4 (1) , DTH ( 1 ) , NN ( 1 ) , SN ( 1 ) , ST ( 1) PLO0050 

DINENSION Cl (1) ,C7 (1) ,C8 (1) ,LWP (1) ,BLD(1) , THETA (1) ,SSA (2,1) PL00060 

DINENSION SSB (2, 1) ,PAU (I, 1) , PAV (I, 1) ,PAW (1,1) ,PAX (I, 1) ,PAT (1,1 ) 

DINENSION PAZ (1 , 1) , LPP ( 1 , 1 ) , ENT (2 , 3, 6, 1 ) , R EN (2 , 3 , 6 , 1 ) , LCOL (1 , 1 ) 

DINENSION ENTS ( 3 , 1 ) , BENS ( 3 , 1 ) , PTH (3, 1) , ER (I, 1) ,CHI (1) ,CKG(1) , 

1CNG (1) 

• COHNON /THIRD/PI PLOOIOO 

CONNON /PORTH/NBX, RN, XR PLO0110 

f LOO 120 

THE PUBPOSE OP THIS SUBROUTINE IS TO ADD A NEW BATCH OP NOL EC UL ES PLOO 1 30 


♦ 
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130 


140 


150 


125 


TO THE SABPLE THROUGH THE OPSTREAH BOUNDARY. 


DO 370 NT* 1# I P 
ARG*SN (AT) 

IGO-O. 

E«1. 

DO 100 NT»1,2 

SB«ANAI1 (0., ABG-4.) , C 

SSfl*A3AXl (0.,ARG) ORIGINAL I 

TENPC«0. OF POOR QL' 

DO 170 LA«1,6 
TEHPB-RLD (LA) *RLD (LA) 

AT « TEHPB-TEHPC 
C « TEHPC 
TEHPC-TEHPB 
DO 170 K»1,NHEDG 

AH=ENT (NT, NT, LA, K) ♦P EH (NT, HT, LA, K) 

H=AH 

AHH*H 

REf! (NT,HT,LA,K) »AH-AHH 
IP(H.EQ.O) GO TO 170 
DT «AY/AHH 
DO 160 N» 1 , H 

IF (NH (HT) .GE.HNH) GO TO 380 
NH ((IT) *NH (HT) ♦ 1 
NHX= NH (HT) 

R ■ SQRT (C ♦ DT* (N*RAND (0) -1.)) 

D« (THETA (K) ♦RAND (0) *DTH (K) ) *PI/10O. 

PAT (NT, NHX) =B*COS ( D) 

PAZ (NT, NHX) =R*SI N (D) 

LPF(HT,NHX) = LWP (LA) 

LCOL (NT, NHX) *0 

V* ?H^ R AN D ( 0) * ( SSH ♦ 4 . -SH) 

Cl (HT) =C 1 (HT) ♦ 2. *?*EXP (SSB (NT, NT) ♦ 2. • A RG* V- T* V ) /SS A ( NT, HT) 
IF (C1(HT) .LT.1.) GO TO 130 
Cl (HT)«C1 ( HT) - 1 . 

PAU (HT,NHX) =E*V/BTA (HT) 

V* 8. *B AN D (0) -4. 

C7 (HT) *C7 (HT) ♦EXP(-V*Y) 

IF (C7(HT) .LT. 1. ) GO TO 140 
C7 (HT) *C7 (HT) - 1 . 

PAT (HT,NHX)» (▼♦ST(HT) ) /BTA (HT) 

V*8. *BAND (0) -4 . 

C8 (HT) *C8 (HT) ♦EXP(-V*V) 

IF (C8(HT) . LT. 1. ) GO TO 150 
C8 (HT) *C8 (HT) -1. 

PAW ( NT, NHX) =V/ BTA (HT) 

ER (HT, HHX) =0.0 

IF (CHI (HT) .LE.-1.) GO TO 160 
X=9. *R AND (0) 

IF (X.LE. 0. 0) GO TO 125 
XT=X **CHI (HT) *EXP (-X) 

IP (XT.GE.CHG (HT) ) GO TO 126 

CNG (HT) =CNG (HT) ♦XT 

IF (CNG (HT) -LT.CHG (HT) ) GO TO 125 


FLOO 140 
— FLO0150 

FLOO 170 
FLOO 180 
FLOO 190 
FL00200 
FLOO 2 10 
PLO0220 
FL00230 
FLO0240 
FL00250 
FL00260 
FL00270 
FLO0280 
FLO0290 
FLOO 300 
FLOO 310 
FLOO 320 
FLOO 3 30 
FLOO 340 
FL00350 
FLOO 360 

FLOO 3 70 
FL00390 
PL00400 
PL00410 
FL00420 
FL00430 
FLOO 4 40 
FL00450 
FLOO 460 
PL00470 
FLOO 480 
FL00490 
FL00500 
FL00510 
FL00520 
FLOO 530 
FLO0540 
FLO0550 
FLO0560 
FLOO 570 
FLO 05 80 
FLO0590 
FLOO 600 


A-33 


•f LE 


GKBEXT DECK 


A 


PRINCETON ON I V Efi SI T Y TINE-SHARING SYSTEN 



340 


350 




. #60 


C NG ( PIT) *CNG (ST) -CNG ((IT) 

EF (NT, NNX) »X 
PAX (NT.NNX) «XGO 

CONTINUE ORIGINAL 

AFG— ARG 0 r pn , 

XGO-XB ° F PC 

E— 1. 

CONTINOE 

DO 370 K*1,NWEDG 

A N* ENTS (NT, K) ♦RENS (NT, K) 

N-AH 

ANH*N 

RENS (NT, K) * A N- A N N 
IP(N.EQ.O) GO TO 370 
DX*XP/ANN 
DO 365 N* 1 , N 

IE (NN (NT) . GE.NNN) GO TO 380 
NN (NT) «NN (NT) ♦ 1 
NNX* NN (NT) 

PAX (HT,NNX)*(N-1. ♦BAND (0) ) *DX 

TH* (THETA (K) ♦PAND(O) *DTH (K) ) •PI/180. 

A=COS (TH) 

B-=SIN (TH) 

SN*ST(NT) • A 
C*0. 

IF (ABS (SN) .LT. 10.) C=EXP (-SN*SN) 

D* 0. 

IP (SN.GT.-10.) D*SQPT (PI) •SN'ERPF (SN) 

D 1 (NT) *D 1 (NT) ♦ (C ♦ D ) /PTH (NT , K ) 

IP (D1 (NT) . LT.1.) GO TO 330 
D 1 (NT) *D 1 (NT) - 1. 

PAY ( NT, NNX) *-RN*A 
PAZ(NT, NNX) *RN*B 
VNN=.5*SN*SQRT (. 25*SN*SN* . 5) 

VN = A N A X 1 (0 . , SN-4 . ) 

V* VN»RAND (0) • (SN*4.-VN) 

D2 (NT) *D2 (NT) ♦V*EXP (VNN* ( VNN-2 . *SN ) - V* (V-2.*SN1 ) /VNN 
IF (D2 (NT) . LT. 1. ) GO TO 340 
D2 (NT) *D2 (NT) - 1 . 

VN*Y 

V*8. *81X0(0) -4. 

D3 (NT) *T3 (NT) »EXP (-V*V) 

IF (D3 (NT) . LT. 1.) GO TO 350 
D3 (NT) *D 3 ( NT) - 1 . 

VT1*SN (NT) *V 
V* 8. *RA ND ( 0) -«. 

D« (NT) *D4 (NT) ♦ EXP (-V*V) 

IP (D4 (NT) .LT.1.) GO TO 360 
D4 (NT) *D4 (NT) - 1. 

VT2=ST (NT) *B ♦ V 

PAD (NT, NNX) = VT1/BTA (NT) 

PAY (NT, NNX) = (VN*A*VT2*B) /BTA (NT) 

PAW (NT, NNX) * (-VN*B»VT2*A) /BTA (NT) 

LCOL (NT, NNX) =0 
EF (NT, NNX) *0.0 


PL00610 

FL00620 

FL00630 

PL00640 

PLO0650 

FLO0660 

PLO0670 

PL00680 

PLO069C 

PLO0700 

PLO0710 

PL00720 

PL00730 

PL00740 

PL00750 
PL00770 
PL00780 
PL00790 
PL00800 
FLO0810 
PLO0820 
PL00830 
PL00840 
PLO0850 
PLO0860 
PL00870 
PL00880 
PL00890 
FL00900 
FL00910 
PL00920 
PL00930 
PL00940 
PL00950 
PL00960 
PLO0970 
PL00980 
PL00990 
PLO 1000 
PLOIOIO 
PL01020 
PL01030 
PL01040 
PL01050 
FL01060 
PLO 1 070 
PL01 080 
PL01090 
PL01 100 
PL01 1 10 
PL01 120 


» 
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IP(CHI (HT) .LE.-1.) GO TO 365 

225 X*9. ♦RAN D ( 0) 

I P ( X . EQ. 0. 0) GO TO 225 
XT = X • *CH 1 (NT) *11? (-X) 
IP(XT.GE.CNG(NT) ) GO TO 226 
CNG(HT)-CNG(NT) ♦ XT 
IP(CNG(HT) .LT.CHG (NT)) GO TO 225 
CNG(NT)*CHG(HT)-CNG (NT) 

226 ER (HT,NHX) «X 

365 LPf (HT,NNX)*LNP (6) 

370 CONTINUE 
RETORN 
30 0 LARGE-2 
FETORN 
END 


ORIGINAL P; 

OF POOU Q jALI. . 


FLOI 130 
FLO) 140 
PL01 150 
PL01 160 
PL01 170 
PLO 1180 


SUBROUTINE COLIDE (CN, CH, NT H, DB , DB A, NB, NCOL,LCOL, PAU, PA V, PAN, ER,T, 
1LH,HT,I2,I3, NUNCEL,ETA,PHI,CHI,CN8,NP, LPF, LKN, NBP, NBN) 

INTEGER TINE COL0030 

INTEGERS LH (NP, 1) , LCOL ( N P, 1) , LPF { NP, 1) , LK H ( 1) 

I NTEGER* 2 NBN, N B, N BP, N UNCEL 

DINENSION CN (3,3, 1) ,CN (3, 3, 1) , HTN(1) ,DB(NP, 1). DBA (NP, 1) ,NB (NP, 1) 

DIHENSION NCOL(3,1),T(NP,NP,1) ,NONCEL(1) ,ETA (3 , 1 ) , PH I ( 3, 1 ) ,CHI (1) 
DINENSION PAO (NP, 1) ,PAT (NP,1» , PAN (NP, 1) , ER (NP, 1) ,CN8 (3, 1) , NA (2) 

DIMENSION NBF (NP, 1) , NON (NP, 1) 

CONNON /PORTH/NBX COLOORO 

CONHON /PI PTH/ND, TI N E, DTN COL0090 

1 POR N AT ( ' TINE - ',P9.4,* COLL. TINES * ',2F9.4,' RUBBERS * *,215/) 

2 POBNAT (• COLIDE REACHED LINE 160 IN BOX NUHBER 15,' AT CPU TIN 

IE * ' , P9 . 4/ • VP* ',E12.4,' REL VEL G * *,3E12.4,' El = ',E12.4) 

3 PORN AT ( ' COLIDE REACHED LINE 165 IN BOX NUHBER «», 15,' AT CPU TIN 

IE , P9 . 4/ ' VP* ' , E 1 2. 4, • REL VEL G = ',3E12.4,» BI * ',E12.4) 

COLO 100 

THE PURPOSE OP THIS SUBROUTINE IS TO ADVANCE THE ELAPSED TINES INCOLOIIO 
CELLS BY AN ANOUNT A PPRO X I N ATEL T EQUAL TO THE PRE-SELECTED COLLISCOL0 1 20 
TINE. THERE ABE POUR TINES POB EACH CELL, SAVED IN AN ARRAY C ALLECOLO 1 30 
•T', CORRESPONDING TO THE POUR TYPES OP NOLECULAR COLLISIONS NHICCOL0140 
CAN OCCUR. Tu ADVANCE THE VARIOUS TINES, AN APPROPRIATE NUHBER OPCOL0150 
THE CORRESPONDING HOLECOLAP COLLISIONS IS CONPOTED. THE ACTUAL COL0160 
HOLECOLES TO COLLIDE ARE SELECTED AT RAHDOH, AND THEIR VELOCITY VCOL0170 
DIRECTIONS AFTER COLLISION ARE SELECTED AT RANDOH. COL0180 

COLO .19 0 

A I HE*DTH*TINP 
DO 240 HTA- 1 , HT 
DO 230 HTB- 1 , HTA 
D = NTH (NT A) ♦ NTH (NTB) 

HA (HTA) *BTH (HTA) /D 
HA (HTB) *HTH (HTB) /D 
R N = H T H (HTA) ♦ HTN (HTB) /D 
CHT*CHI (HTA) *081 (HTB) ♦ 2. 0 
PHT- PHI (HTA, HTB) 

ETT-ETA (HTA, HTB) 

DO 220 N- 1 , NBX 
N* NUHCEL (H) 

IP(N.LE.O) GO TO 220 
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AKW-LKW (N) 

IF (T (IT A , NTB , N) • LT.AIHE) GO TO 100 
IP (T(HTB,HTA,N) .GE.AIHE) GO fO 220 
> NA«NB(HTA,N)*NB(HTB,K; 

IF (HTA.EQ. HTB) NA« (NA-NB (NTA,N) )/2. 

IF (NA.LT. 1) GO TO 220 
KS»0 
I RC*0 

CPUT'ELTI HE (0) 

KS-KS* 1 

IF (KS.GT.NA) GO TO 220 
I KC«KC*1 

IF (KC.GT. NA) GO TO 220 
i I«NB (HTA,N) •FAND(O) ♦ WNBH (HTA,N) 

IF (I.GT. BBS (BTA , N* 1) ) I» NBH ( HTA , II ♦ 1) 

J«LH (BTA , I ) 

CR-LPE (HTA ,J)/AKH 
IP (CR.GT.0.99) GO TO 140 
IP (RAND(O) .GT.CR) GO TO 135 
I K* NB (NTB , N ) *FAN D (0) ♦ 1 ♦ NBH (NTB, N) 

IP (K.GT. N3H (HTB, N* 1) ) K*N6H (HTB , N*1) 

IF (HTA.EQ. NTB. AND. I. EQ.K) GO TO 140 
L«LH (HTB,R) 

CR»LPP (HTB , L) /AKW 
IP (CP. GT. 0.99) GO TO 145 
IP (RAND (0) .GT.CP) GO TO 140 
* CONTINOE 

GH 1 = WA (HTA) ♦PAU (NT A, J) ♦HA (HTB) • PAU (HTB, L) 

GH2*WA (HTA) *PA V (HTA, J) ♦ WA (HTB) *PAV (HTB, L) 

GH 3* W A (HTA) *PAW (HTA, J) ♦HA (HTB) *PAW (HTB , L) 

G^*PA0 (HTA,J)-PAU (HTB,L) 

G2=PAV (HTA,J)-PAV(HTB,L) 

G3-PAW (HTA,J)-PAW (NTB,L) 

GS=G1**2*G2**2»G3**2 

IP (GS. LT. 1.0E-8) GOTO 130 

ET=RH*GS 

EI*EF (HTA , J) ♦ER ( HTB , L) 

VR*G S** (.5-ETT/2.) 

IF ("R. GE.CH (HTA, HTB, 1) ) GOTO 160 
CN (HTA, HTB , 1 ) *CN (HTA, HTB, 1) ♦ VB 
IF (CR (HTA, HTB, 1) . LT.CH (HTA, HTB, 1) ) GOTO 130 
CN (HTA, HTB, 1) *CN (HTA, HTB, 1) -CH (HTA, HTB, 1) 

I CONTINOE 
CPOT=ELTI HE (0) 

IF (H.EQ. 1196) WRITE (6, 2) H, CPUT, VR,G 1 , G2 ,G3 , El 

CALL IHPACT (RH , G 1 , G2, G 3, ET, El, PHT,CHT, ETT, CH (HTA, HTB, 2) ,CN (HTA, HTB 
1,2)) 

i CONTINOE 
CPUT=ELTINE (0) 

IF (H.EQ. 1 196) WRITE (6, 3) H ,Ci-UT, V R, G 1, G2,G3, El 

IF (PHT.EQ. 0.) GO TO 175 

X1*0.0 

IF (CHI (HTA) . EQ.-1. ) GOTO 175 

11 = 1.0 

IP (CHI (HTB) .EQ.-1. ) GOTO 175 
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170 


175 


180 

190 


210 


Xl-RAND(O) 

ir ( (C«I (HTA) . EJ. 0. ) . AND. (CHI (8TB) . EQ.O.) ) GOTO 175 
XT * X 1 • *C H I (HTA) • (1.-X1) • •CHI (STB) 
IP(XT.GT.CN(NTA,NTB, 3) ) GOTO 175 
CP (NTA,NTB,3)»CN (HTA , HTB , 3) »XT 
IE (CN(BTA,NTB, 3) .LT.CH (HTA, NTB, 3) ) GOTO 170 
CP (HTA , HTB ,3) *CN (HTA, HTB, 3)-CH (HTA, NTB, 3) 

CONTINOE 
C«DBA ( HT A , N ) 

D-DBA ( NT B , N) 

IP(C.EQ.O.O) 

IP (D.EQ.O.O) 


ORIGINAL PAC. . 

OF POOR QUALITY 


1 


220 

230 

240 


C»D8 (HTA, N) 

D*DB ( NTB , P) 

I P (T (HTA , NTB, N) .GE.AINE) GO TO 180 
PAU(HTA, J)«GHWWA ((ITB) *G 1 
PAY (HTA, J) "GN2 ♦ WA (NTB) *G2 
PAN (HTA , J) -GB34HA (HTB) *G3 
IF (PHT.GT.O.) ER (HTA, J) «X 1 *EX 
LCOL (HTA,J)«1 

NCOL ( HTA , HTB) «HCOL (HTA , NTB) ♦ 1 

T(HTA, NTB,N)»T(NTA,HTB,N) *CNR ( NT A, HTB) •LPP(NTA,J)/NBP(NTA, N) /D/VB 

IP (NTA.EQ* NTB) GO TO 190 

IP (T(NTB,HTA,P) .GE.AINE) GO TO 210 

PAU (HTB, L) «GH1-WA (HTA) *G 1 

PAV(HTB,L) *GH2- W A (HTA) *G2 

PAW (NTB, L) *GH3-WA (NT A) *G3 

IP(PHT.CT. 0.) ER (HTB.L)* (1.-X1) *EI 

LCOL (NTB , L) * 1 

NCOL f K , HTA) «NCOL (HTB , HTA) ♦ ) 

T(HTB» *T (HTB,HTA,N) »CN8 (HTB, HTA) *L PP (NTB , L) /NB P ( NT B, N) /C/VR 

COPT* itJE 

I P(N 4 £Q. 1196) WRITE ( 6 , 1) A IN E, T ( HTA, NTB, P) , T (N TB , HTA , N) , NBP(HTA,N) 
,NBP (NTB , N) 

IP (T(NTA,NTB,N) . LT . A IH E. OR . T ( NTB , HTA , N) .LT.AINE) GOTO 120 

CONTINUE 

CONTINUE 

CONTINOE 

RETURN 

END 


COL0810 


COL0920 


SOBROUTINE HOVE ( KSWCH, AK N, HJ, NS, NWEDG, TR ETAZ , X ST ART, I 2 , 1 3, 14,15 
1LANG, N WEDGE, BT A , C2 , C 3, DP A , PL , BTI , HTB, JNT , K N N , NN, XC B , XLI N , N S, I W S 
2CF, NTC V, PV, C TI, CTP,CNI, CNR, ALPHA, SIGNA, COE PP,HTS,HT SI, NTS, NTSP, 
3,UTT,VTS,PAU,PAV,PAW,PAX,PAY,PAZ,LPP,LCOL,TB,IP, ER,CHI,CNG,CHG, 
4 UTLI , UTT I , VTSI ) 

I NTEGER* 2 LPP (1 , 1) , LCOL (1 , 1) 

INTEGER SW TCH, TINE 
LOGICAL DU HP 
REAL LAN, NO, NO 

DI PENSION DELANG (1) , N WEDGE (1) , BTA ( 1) , C2 ( 1) , C 3 { 1) , PL 1 1) , HTI ( 1 ) 

DI PENSION HTB (1) , T B ( 1 ) , XCB ( 1 ) , ALPH A ( 3 , 1 ) , SIG PA (3 , 1 ) , COEPP ( 4 , 1) 
DIHENSION PAD (I, 1) , PA V (I, 1) , PAW (I, 1) ,CTI (3, 1) ,CTB (3, 1) 

DI PENSION CNI (3, 1) ,CNR (3, 1 ) , DP A ( 1 ) , JNT ( 1 ) , XLI H ( 1 ) , KN H ( 1) , NH ( 1) 
DIHENSION RTS (3, 1 2,1 3) ,HTSI (3,12,13) , NTS (3, 1 2, 1 3) , NTSP (3, 1 2, 13) 
DIHENSION OTLI (3,12,13) ,UTTI (3, 12, 13), VTSI (3,12,13) 

DIHENSION UTL(3,I2,I3) , UTT ( 3, 12, I 3) , VTS ( 3, 12, 1 3) ,NTCP(3,I4) 


, DEHOVOO 1 0 
, NTHOV0020 
0TLHOV0030 
I * 


HOV0060 

HOV0070 

HOV0080 

HOV0090 
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01 HE NS ION PA I (I, 1) ,PAY (I. 1) ,PAZ(I, 1) , X WS (1) , MS (1) 


DIMENSION NTCV (3,14,2,15,3) ,FV (3,14,2, 15,3) OS 

DIMENSION EH (1,1) ,CNG(1) ,C.<G(1) ,CHI(1) 

COMMON /THIBD/PI,NBEG MOT0170 

COMMON /POBTH/NBX, BM,IF,DOMP HOT0180 

COMMON /PIFTH/ND, TIMS, OTM HOVO 190 

COMMON /SVNTH/LAH,HU,MU,HT,N,J,XI,YI,ZI,TGSE HOT0200 


NAHELI ST/CHECK/TIME, X, T, Z, DX , D Y , DZ, TLE FT ,R ADS, R NS , IB 


! 




2 




10 


15 


THE PURPOSE OP THIS SUBROUTINE IS TO ADVANCE THE 
OF ALL THE MOLECULES BY AN AMOUNT A PPBOPKl ATE TO 
LOCITIES AND THE PRE-SELECTED COLLISION TIME. 

SPATIAL POSITION HOVO 220 
THEIR CURRENT TEMOT0230 

MOT0240 







FORMAT (27H SOMETHING IS WRONG IN MOVE/ 3E 20. 7, 4 17 , 

E20.7) 

MOT0260 

NAREA»NRPG* 3 




MO TO 2 70 

RMS»RM**2 





DO 150 MT* 1, IP 





N* KNH (MT) 




NOV0290 

N*N»1 




HOVO 300 

TL EFT* DTM 




HOV0310 

IP (KSWCH.EQ. 1) 

TLEFT*TLEFT*RAND(0) 



NOV0320 

IP (N.GT. NH (MT) ) 

GO TO 150 



MOT0330 

LAM* PAU (NT ,N) 




MOT0340 

IF (LAM.EQ. 0.) LAM*. 0000001 



NOVO 350 

MU*PAV (MT, S) 




HOV0360 

NU*PAW (MT, N) 




HOVO370 

XI*P A X (NT, N) 




HOVO 380 

YI*PAY (MT, N) 




HOVO 390 

ZI*PAZ (MT, N) 




HOVO 400 

DX*TLEFT*L AM 




HOVO 4 1 0 

DY=TLEFT*HU 




HOV0420 

DZ*TLEFT*NU 




HOV0430 

X* XI + DX 




MOV0440 

Y*YI»DY 




HOV0450 

Z*ZI»DZ 




MOV0460 

FADS»Y**2*Z**2 






, 



1 / 

L 


► « 


IP ( (PADS.GT.2.*RNS) .OR. (ABS (X) .GT.2. *XB) ) 
TP (PADS. GT. RMS) GO TO 100 
KAD=SQBT (RMS) 

ME Y= ABS (LAH)/T.AM*.5 
DO 60 L* 1 , NA B>.A 
IF (XI-XLIM (L) ) 65,55,60 
55 J*UKEY-2 
GO TO 70 
60 CONTINOE 

# WRITE ( 6 , 2) DTM,XI,LAM,R,REY,NAREA,L,XLIM (L) 
IF (DUMP) CALL ABEND (16) 

STOP 
65 J*L-2 
70 K*J*KEY*1 

IP ( (K. EQ.O) .OR. (K. EQ. RAREA+1) ) GOTO 100 
9 TUSE* (ILIH (K)-XI)/LAH 
XTEHP* XLIH (K) 

IP (TUSE. LE.TLEFT) GO TO 75 
TUSE=TLEPT 


NBITE( 6 , CHECK) 


MOV0490 

HOV0500 

HOV0510 

MOV0520 

HOV0530 

MOT0540 

MOV0550 

HOV0560 

HOV0570 

HOV0580 

MOV0590 

NOT0600 

MOT0610 

MOY0620 

HOT0630 

HOV0640 
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XTEMP* II*TUSE*LAM NOV0650 

75 IP ((J. EJ.O).OP. (J.EQ.NPEGO) ) GO TO 85 MOV0660 

CALL INTERS(ArN,NJ,NS, NHEDG,SHTCH,THETAZ,XSTABT,I2,I3, T'I,I5,DCLANGMOV0670 
1 , N HEDGE, BTA,C2,C3,DPA, FL, HTI , HTR, JNT, T B, XCB, CT I, CTR , CN i, CNR , AL PH A , NOV0t>80 
2SIGNA,COEPF, HTS,HTSI,NTS,NTSP,UTL,UTT,VTS,MS,IHS,NTCF, NTCV , P V, PAU, MOV0690 
3 PAV, PAN, LPP, LCOL,IP,EB,CHI,CNG,CMG,I,UTLI,UTTI, VTSI) 


IP (SHTCH.EQ. 1) GO TO 90 


MOV0710 

85 XI *XTENP 


MOV0720 

YI*YI»TUSE*MU 


MOV0730 

ZI«ZI*TOSE*NU 


MOV0740 

90 PAI(HT,N)»II 


MOV0750 

PAY (HT,N) *YI 


MOVQ760 

P A Z ( NT , N ) * ABS (ZI) 


MOV0770 

PA H (NT, N) * A8S (ZI) /ZI*PAH (NT, N) 


MOV0780 

TLEPT*TLEPT-TUSE 


HOV0790 

IP (TLEPT.GT.O,) GO TO 15 


MOV0800 

GO TO 10 

original page vs 

OF POOR QGALiri 

MOV0810 

100 NZ»NM (NT) 

MOV0820 

PA X (MT,N) * PA I (NT, NZ) 

MOV0830 

PA Y (NT,N) *PAY (MT, N Z) 

MOV0840 

PAZ (MT,N) *PAZ (NT, NZ) 


MOV0850 

PAU (MT , N) * PAU (MT, NZ) 


MOV0860 

PAV (NT,N) * PA V (MT, NZ) 


MOV0870 

PAH ( NT, S) * PA H (MT, NZ) 
ER (MT, N) *ER (MT, NZ) 


MOV0880 

LPP (H?,N) *LPP (MT, NZ) 


HOV0890 

LCOL (MT, N) *LCOL(HT,NZ) 


MOV0900 

N = N- 1 


MOV0910 

NM (MT) *NN (NT) -1 


MOV0920 

GO TO 10 


MOV0930 

150 CONTINUE 


MOV0940 

RETURN 


MOV0950 

END 


MOV0960 


SUBROUTINE ACCOM (12,13, PN3, NB, PAU, PAV, PAH, ER, TNP, TFP , X V, YV,ZV,LM, 


1IP,I,LPP,NBP,NBN) 

INTEGER *2 LH (1 , 1) , LPP (I , 1) , NBN (I , 1) 

INTEGEfi*2 NB, NBP 

DIMENSION FNB (1) ,NB (I, 1) ,PAU (I, 1) ,PAV (I, 1) ,PAH (I, 1) , TNP (I, 1) 

DIMENSION XV (1,1) ,Y7 (1,1) , ZV (1 , 1) ,ER(I,1) ,TRP(I, 1) ,NBP (1,1) 

COMMON /PORTH/NBX ACUM050 

ACUM060 

THE PURPOSE OP THIS SUBROUTINE IS TO ACCUMULATE TEMPERATURES, ACUM070 

VELOCITIES, AND DENSITIES IN VARIOUS ARRAYS FOR DETERMINING THE ACUM080 

AVERAGE PLOW FIELD PROPERTIES APTER STEADY-STATE HAS BEEN REACH ED AC U.N 090 

ACUM100 

N=0 A CUM 110 

DO 180 K* 1 , NBX ACUM120 

IP (FNB (K) .LE.O.) GO TO 180 ACUM130 

N* N ♦ 1 ACUH140 

DO 110 MT= 1 , I P 

XV (NT, B) *0.0 ACUM160 

YV(MT,N)=0.0 ACUM170 

ZV(MT,N)=0.0 ACUM180 

TM P ( MT , N) *0 . ACUM190 


A-39 


GK BE XT DECK 


A 


PRINCETON ONIYEFSITY TIRE-SHARING SISTER 





t 

I * 




DO 




10 

30 


TRP(NT,N)»0.0 

TTX-0. 

TTY«0. 

TTZ»0. 

TTR-0.0 
H*N9 (NT, N) 

IP (H.LT. 1) GO TO 1 10 

0 * 0 . 

Y*0. 

N*0. 

DO 100 L*1,H 
N A* NDR (NT, N) ♦ L 
J* LH (NT, NA) 

AKH*LPP (NT, J) 

PU* PAU ((IT, J) 

PY*PA Y ((IT, J) 

PN=PAW (NT, J) 

0* 0* P0*A K N 
V*V*P V*AKN 
«*W+PH*AKW 

TTR=TTB*ER (IT, J) *AK¥ 

TTX = TTX ♦ PU*PU*AKW 
TTY*TT !♦ PV*PY* A KW 
TTZ=TTZ*PW*PW* AKW 
11* NB P (HT, N ) 

XV (HT, N) *0/H 
YV (HT, N) * Y/H 
ZY (HT, N) *H/H 

THP (HT,N) * (TTX ♦TTY ♦TTZ) /H 

TRP (HT,N) *TTP/H 

CONTINUE 

CONTINOE 

RETURN 

END 
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ACUH200 

ACUH210 

ACUH220 

ACUH230 

ACUH240 

ACUH250 

ACUN260 

ACUH270 

ACUN280 


AC0H300 

AC0H310 

ACUH320 


ACUH390 

AC0H400 

ACOH410 

AC0H420 

AC0N430 

AC0H440 

AC0H450 

AC0H460 


SOBROOTINE AVRGE(PNB,DB,DBA,NB,NBT,XY,YY,ZY,XVA,YYA,ZYA,THP,THPA 
1TRP,TRPA,IP,I,NBP, NBS) 

INTEGER* 2 NB, N BT, N BP , N BS 

DINE NSION PNB (1) ,DB(I, 1) ,DBA (I, 1) ,NB (I, 1) ,NBT(I, 1) ,THP (I, 1) 

DI HENS ION THPA (I, 1) , XV (I, 1) ,XVA (I, 1) , YV (I, 1) ,YVA (1,1) ,ZY (I, 1) 
DINE NSION ZVA (1,1) ,TRP(I, 1) , TPPA (I , 1) , NBP (I, 1) , N BS (I , 1 ) 

COHHON /PORTH/NBX 

THE PURPOSE OP THIS SUBROUTINE IS TO COHPUTE THE AVERAGE PLOW 
PIELD PROPERTIES. 


N= 0 

DO HO H*1 , NBX 
IP (PNB (H) .LE. 0.) 
N=N> 1 

DO 100 HT=1,IP 
A= N BT (HT, N) 

B=NB P (HT, N) 

C* A* B 

NBT (HT,N) =C 


GO TO 110 


* 


AYG0050 
— AYG0060 
AVG0070 
A VG0080 
— AVG0090 
AYGO 100 
AVG0110 
AYG0120 
AYGO 130 

AY GO 150 

AYG0170 
AYGO 180 


A-40 


ILE: GK BE XT DECK A 


PRINCETON UNIVERSITY TIME- SHARING SYSTEM 


NBS (NT,N) * NBS (NT, N ) ♦ NB (MT, N) 

IP (C.LT. 1. ) GO TO 100 
DBA (MT,N) * (DBA (NT, N) * A*DB (NT, N) *B) /C 
XVA ( MT , N ) = (XVA (NT, N) *A ♦ X V (NT,N) • B) /C 
IV A (NT,N) = (YVA (NT, N) • A ♦ Y V (NT , N ) • B) /C 
2VA (NT,N) = (ZVA (N* - N) *A*ZV (NT,N) *B) /C 
THPA (NT,N) ■ (TNPA (NT,N) *A*THP (NT,N) *B) /C 
TFPA (NT, N) * (TPPA (NT, N) *A*TRP (NT, N) ♦ BJ/C 
100 CONTINUE 
110 CONTINC? 

RETURN 

END 
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A f GO 1 90 
AVG0200 
AVG0210 
AVGQ220 
ATG0230 
AVG02U0 

AVG0250 

AVG0260 

AVG0270 

AVG0280 


SUBROUTINE DRAG (AK N, NJ, NS, NWEDG, THETA Z, 1ST ART, 12,13, I« 
1NWEDGE,BTA,C2,C3,DFA,FL,HTI,HTB,TB,XCE,CTI,CTR,CNI,CNR 
2,COEPP,HTS,HTSI,NTS,NTSP,UTL, UTT, VTS , N S , INS, NT CP, NTCV, 
3 A W , LPP , LCOL, IP,ER,CHI,CNG,CNG, I,UTLI, UTTI , VTSI ) 
INTEGEB*2 LPP,LCOL 
INTEGER TINE,TST 
REAL LAN, HU, NU, JAY, KAY 

DIMENSION DELANG (1) , N WEDGE (1) , BTA (1) ,32 (1) ,C3(1) ,PL(1) 
DIMENSION HTR (1) , TB ( 1) , XCB (1) , ALPHA (3, 1) , SIGMA (3, 1),CO 
DIMENSION LPP (I, 1) ,PAU (I, 1) ,PAV (I, 1) ,PAW (1,1) ,CTI (3, 1) 
DIMENSION HTS (3,12,13) ,HTS I (3, 12,13) , NTS (3,12, 13) , NTSP 
DIMENSION UTL(3,I2,I3) , UTT (3 , 12. I 3) , VTS (3 , 12 ,1 3) ,LCOL( 
DIMENSION UTLI (3,12,13) ,UTTI (3,12,13) , VTSI (3,12,13) 
DIMENSION CNI (3, 1) ,CNR (3,1) , DP A ( 1 ) , I WS ( 1 ) , NS (1) ,NTCP (3 
DIMENSION NTCV (3,14,2,15,3) , PV ( 3 , 1 4, 2, 1 5, 3) 

DIMENSION ER (1,1) ,CNG (1) ,CNG ( 1) , CHI (1) 

COMMON /THIRD/PI 

COMMON /PI PTH/ND, TIME, DIM, TI, ITS, ITP,TST 


,15, DELANG, 

, ALPHA, SIGNA 
PV.PAU.PAV, P 


, HTI (1) 
EPP(4,1) 
,CTR (3,1) 
(3,12, 13) 
I. 1) 

, 19 ) 


DRG0040 

DBG0050 

DRG0060 

DRG0070 


COMMON /SVNTH/LAM, MU, NU, HT, N, J, XCL, YCL.ZCL 


DBG0140 
DRGO 150 
DBGO 160 

DRG0170 

THE PURPOSE OP THIS SUBROUTINE IS TO ACCUMULATE THE DRAG AND HEATDRGO 180 
TRANSFER INCREMENTS ON THE BODY CONTRIBUTED BY EACH MOLECULE WHICDBGO 1 90 
COLLIDES WITH THE BODY. IN ADDITION, EACH MOLECULE WHICH COLL IDES DR GO 200 
WITH THE BODY IS ASSIGNED AN APPROPRIATE NEW VELOCITY (OP R EF LECTDRG02 1 0 
WHICH IS USED TO CONTINUE ITS SPATIAL TRANSLATION (IN SUBROUTINE DRG0220 

DR GO 2 30 

DRG0240 
DRGO 250 
DRG0260 
DBG0270 
DRG0280 
DRG0290 


CALL NORMAL (EYE, J A Y, K A Y , ON E, COEPP) 

AKW=LPP (NT,N) 

RA D=SQRT (YCL*YCL*ZCL*ZCL) 

ARG= YCL/R A D 

TANG- 180. * (1.-ARCCOS (ARG) /PI) 

IWDG S TANG/ DELANG (1) ♦ 1. 

IP ( (IWDG . GT. NWEDG E ( 1) ) .AND. (DELANG (2) ,NE. 0. ) ) 
1/DEL A NG (2) *NWEDGE ( 1) ♦! 

IP (IWDG. LT. 1) IWDG = 1 
IP (IWDG. GT. NWEDG) IBDG-NWEDG 
D= (LAN*LAH*MU*MU*NU*NU) *AKW 
G=ER (NT, N) *AKW 
H=G 

DO 100 H=1,ND 

IP(XCL.LT. XCB (M) ) GO TO 110 
100 CONTINUE 


IWDG = (TA NG-THETAZ) 


DBGO 3 10 
DBG0320 


DRG0330 
DRGO 340 
DRG0350 
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GO TO 120 


110 UI-LAN 

WI- (NU*J AY-NO* FAY) /ONE 

VID=LAN*EYE»Nn*JAY*N'J*KAY OF K>L, 

DID* LAN* ONE- EYE* (N U* J A Y* N J*K A Y ) /ONE 
E- BAND (0) 

I’*(E.LT.SIGNA(NT,N)) GO TO 115 
VPD«-VID 
OR D*UID 
UB*HI 
GO TO 125 
115 ?»4.*RAND(0) 

C2 (NT) *C2 (NT) ♦ . 544 33 1* V* V* V*EX P ( 1. 5- V* V) 

IF (C2(NT) .LT. 1.) GO TO 115 
C2 (HT)-C2 (NT)-1. 

IP (NTSF(NT,N,IWDG) .NE.O) GO TO 117 
ATR* ALPHA (NT, N) *TB (N)/SIGNA ( NT , N) 

GO TO 110 

117 ATR* ALPHA (NT,N) *TB (N) /SIG8A ( NT , N) ♦ ( 1 . - A LPHA { NT , N) /SI GN A ( NT, N) ) 
II (NT,N,IWDG)/NTSP(NT,N,IWDG)/(3.*CHI (NT) ) 

110 ABR=SQBT (ATR) 

?*V* ABB/BTA (NT) 

120 A* RA ND (0) 

C 3 (NT) *C3 (NT) ♦ A 
IF (C3(HT) .LT. 1.) 

C3 (NT) *C 3 (NT) - 1. 

B=SQRT (1 .-A*A) 

C*2. *P I*R A ND (0) 

VRD*V*A 

UR D* V* B* CO S (C) 

IB *V * B*S I N (C) 

IF (CHI (NT) .EQ.-1.) 

X*9.*RAND (0) 

IP(X.EQ.O.O) GO TO 
XTENP* 1. 0 
IF (CHI (NT) .NE.0.0) 

CNG(NT)*CNG(NT) *XTENP* EXP (-X) 

IP (CNG (NT) . LT.CNG ( NT) ) GOTO 
CONTINUE 

CNG (NT) =CNG (NT)-CNG (NT) 

* IP (CNG(NT) .GE.CNG (8T) ) 

EB (NT, N) = X*ATR 
H=ER (NT, N) *AFW 
125 UR=EYE*VRD*ONE*OBD 
PA 0 ( NT , N) =0R 

PA V ( NT, N) * JA Y* VRD- (F A Y * HR ♦ EY E* JA Y *UR D) /ONE 
» PAW (NT, N) = RAY* VRD* (JAY*WR-EYE*K AY*0RD) /ONE 
IF (TINE. LE.TST) RETURN 
IP (TI.GT.O.) GO TO 1 30 
TI*TST*DTN 

130 INZ= (XCL-XSTART) *AKN 
YHZ=RAD*AKH 

9 B= (URD*URD*VRD*VRD*WR*WR) *AKW 
UTI=UID*UID*WI*WI 
UYI=- (UID*EYE*JAY*II*FAY) /ON ? 

UYR=- (ORD*EYE*JAY*WP*FAY) /ONE 


122 


GO TO 125 


122 


124 


XTENP=X**CHI (NT) 


122 


GO TO 124 


DFG0360 

DBG0370 

DRG0380 

DBG0390 

DRG0400 

DBG0410 

DRG0420 

DBG0430 

DRG0440 

DRG0450 

DRG0460 

DRG0470 

DRG0480 

DRG0490 

DRG0500 

DRG0510 

DRG0520 

♦HTSDBG0530 

DRG0550 

DRG0560 

DRG0570 

DRGO50O 

DRG0590 

DRG0600 

DRG0610 

DRG0620 

DPG0630 

DRG0640 

DRG0650 


DRG0660 

DRG0670 

DBGO60O 

DBS0690 

DRG0710 

DRG0730 

DBG0740 

DRG0750 

DRG0760 

DBG0770 

DRG0780 
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135 

140 

145 

160 


CTI {NT, 2) 
CTI (NT, 3) 
CNI (NT, 1) 
CNI (NT, 2) 


CTR (NT, 2 ) 
CTR (NT, 3) 
C N P ( NT , 1 ) 
CNR (NT, 2) 
CNR (NT, 3) 


PL (NT) «PL (NT) ♦ AK B* DP A (NT) 

HTI (NT) *HTI (NT) ♦D»G 
HTR (NT) *HTR (NT) -B-H 
CTI (NT, 1) *CTI (NT, 1 ) ♦ 0 I D*ONE*AKB 
'CTI (NT, 2) *0 Y I * AK W 

'CTI (NT, 3) ♦ (XHZ*OYI-TSZ*UID*ONE) *AKW 
'CNI (NT, 1) ♦TID'EYE* AKt 

'CNI (NT, 2) *VID*JAY*AKB 

CNI (NT, 3) *CN I (NT, 3) ♦ (X HZ* J A Y- Y HZ* EYE) • VI D* AK B 
CTR (NT, 1) «CTF ( NT , 1 ) -UR D*ON E* A KM 
'CTR (NT, 2) -0YR*AKB 

'CTR (NT, 3)- (XHZ*UYR-YHZ*ORD*ONE) *AKB 
'CNR (NT, 1)-VRD*EYE*AK8 
'CNR(HT,2)-VBD*JAY*AKB 
'CNR (NT, 3)- (XHZ*JAY-YNZ*EYE) * VRD*AKH 
NTS (NT, H,IBDG)=NT5 (NT, H , I WDG) 

NTSF (NT,H,IWDG) = NT SP ( HT, N , I B DG ) ♦AKH 
UTLI (NT, H, IWDG) *UTLI (N T, N , I « DG) ♦OI D* AK H 
OTL (NT, H , I MDG) = OTL ( NT, N , I WDG ) ♦ (U I D-U R 0) • AK B 
OTTI (NT, H, INDG) =UTTI ( NT, N , I VDG) ♦ BI*AKW 
OTT (HT,H, IBDG) *UTT (NT, 8 , 1 B DG) ♦ (V I-B R) • A KB 
VTSI (NT,H, IWDG) = VTSI ( NT, H , I WDG) - V I D* AK B 
VTS(HT,H,IWDG)*VTS (NT, H, INDG) ♦ (VRD-VID) *AKW 
HTSI (NT, H, IWDG) =HTSI (NT,N,IWDG) ♦ D*G 
UTS (NT,H, IWDG) *HTS (NT, N, IWDG) ♦D-B*G-H 
IP (NS. EQ. 0) RETURN 

NC* (2*LC0L (NT, N) ) / (WLCOL (NT , N) ) ♦ 1 
DO 160 L* 1 , NS 
HTEST*HS (L) 

I NT* INS (L) 

IP ( (H.NE.HTEST) .OR. (IWDG.NE.IBT) ) GOTO 160 
IP (NC. EQ. 1) NTCP (NT, L) = NTCP ( NT , L) ♦ARM 
DO 145 J J= 1, HJ 

IP (ABS(VID) .GT.PV (NT,L,NC,JJ,1) ) GOTO 135 

NTCV (NT, L, NC, J J, 1) *NTCV { NT, L , NC, J J , 1) ♦ AK W 

IP (UID.GT. PV (NT, L, NC,JJ,2) ) GOTO 140 

NTCV (NT, L, NC, JJ,2) *NTCV (NT , L , NC , J J, 2) ♦ AK W 

TP (BI*ABS (ZCL) /ZCL.GT.PV (NT, L, NC, JJ, 3) ) GOTO 145 

NTCV (NT, L, NC , J J , 3) *NTCV (NT , L , NC, JJ , 3) ♦ AK B 

CONTINUE 

CONTINOE 

RETURN 

END 


fQ 
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DRG0790 


DRG0820 
DBG0830 
DRG0840 
DRG0850 
DBG0860 
DRG0870 
DRG0880 
DRG0890 
DBG0900 
DBG0910 
DBG0920 
DBG093 ** 
DBG0940 
DRG0950 

DRG0960 

DBG0970 

DBG0980 


DRG1010 
DBG 1 020 


DBG 1060 
DRG1 080 


DRG1 150 
DRG1160 
DRG1 170 
DBG1 180 


SUBROUTINE INTERS ( AKN, N J, NS, N BEDG,SBTCH, THE 
1DELANG,NBEDGE, BT A , C2,C 3 , DPA , PL, HTI, HTR, J NT, 
2ALPHA,SIGNA,COEPP, HTS, HTSI , NTS, NTSP, UTL, UTT 
3V,PAO,PAV,PAB,LPP, LCOL, IP , ER , CHI , CNG , CHG, I , 
INTEGER*2 LPP,LCOL 
INTEGEB SB TCH 


, VT5,HS,IWS,NTC 
UTLI, OTTI, VTSI) 


INTEGEB 
REAL LAN, 
DIHENSION 
DIHENSION 
DIHENSION 
DIHENSION 



rCTR (3,1) 

' r 1 2 , 1 3 ) 


>, INT0010 
?, INT0020 
, PINT0030 

INT0050 

INT0060 

INT0070 

INT0080 


A-43 


•ILE 


GKBEXT DECK 


A 
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DIMENSION UTL (3,12,13) , UTT (3, 1 2, 1 3) , VTS (3, 12, 13) , LCOL (I, 1) 

DIMENSION UTII (3,12,13) ,UTTI (3, 12, 13) , VTSI (3,12,13) 

DIMENSION CNI (3, 1) ,CNP (3, 1) , D*A ( 1) , INS (1) , MS (1) , NICE (3,14) 

DIMENSION JNT ( 1 ) , NTCV ( 3, 14, 2, IS, 3) , PV (3, 14,2,15, 3) 

DIMENSION ER (1,1), CNG ( 1) ,CHG ( 1) , CHI (1) 

COMMON /SVNTH/LAM, HO, NO, MT, N, J, XI, YI ,21, TOME INT0150 

INT0160 

THE PORPOSE OE THIS SUBROUTINE IS TO DETERMINE EOR EACH MOLEC OL ARI NTO 1 70 


TRAJECTORY IE THERE IS AN INTERSECTION OE THE TRAJECTORY 
BODY SOREACE. 


dpi: 

OF I 


150 


250 


SWTCH*0 
A*COEPE (1, J) 

B*COEPE (2 , J) 

C*COEPE (3, J) 

D*COEPE (4, J) 

ONE* A*LA M 
TWO*B*HU 
TRE*B*NU 
EUR*. 5*C*LAN 

SQUARE=ONE*I.AH*THO*HU*TRE*NU 

LINEAR *ONE , ‘XI p TWO*YI»TPE*ZI»EUR 

CONST* (A*XI»C) • XI ♦ B* (YI*YI^ZI*ZI) *D 

IE (SQUARE. EQ.O.) GO TO 150 

DI SC R*LINEAR*LINEAP-SQUARE* CONST 

IP (DISCR.LT. 0.) RETURN 

SDISC * SQRT(DISCP) 

TYME * (-LINEAR-SDISC) /SQUARE 
GO TO 250 

IE (LINEAR. EQ.O.) RETURN 
T Y ME*-. 5*CON ST/LIN EAR 
IE (TYME.GT.TOSE) PETUPN 
IE (TYME. LE.O.) RETORN 
JNT (MT) *JNT (MT) ♦ 1 
XI*X I* LAM* T THE 
YI *YI» MU*T YME 
ZI*ZI*iU*TYHE 

CALL DBAG (AKN, MJ, NS, NV EDG, TH ETAZ, XSTA R f, 1 2, I 3, 1 4 , I 5, DELANG 
1BTA,C2,C3, DEA,EL,HTI,HTB,TB, XCB, CT I,CTR,CNI,CNR, ALPHA, SIGN 
2HTS,HTSI ,NTS,NTSP, OTL,OTT, VTS, H S , I VS, N TC E, N TCV , P V , P A 0, P A V, 
3 LCOL, I P. Ea,CHI,CNG,CMG,I,UTLI,OTTI, VTSI) 


WITH THEINTO10O 
INT0190 

INT0200 

INT0210 
INTO 220 
INT0230 
INT0240 
INT0250 
INT0260 
INT0270 
INT0280 
INT0290 
I NTO 300 
INT0310 
I NTO 320 
INTO 330 
I NTO 34 0 
INT0350 
I NTO 36 0 
INT0370 
INTO 380 
I NTO 390 
INT0400 
INT04 10 
INT0420 
INT0430 
INT0440 
INT0450 
INT0460 
, N WEDGE, I NTO 4 7 0 
A, CO EEE, INT0480 
PAW, LPE, INT0490 


• 

LCOL (MT, N ) *2 

INT05 1 0 


TOSE*TYM E 

IWT0520 


SWTCH* 1 

INT0530 


RETURN 

INT0540 


END 

INT0550 

9 

SUBROUTINE NOPM A L ( E Y E, J A Y , K A Y , ON E, CO EP E) 

NORM 0 1 0 


REAL LAM, MO, NU, JAY, PAY 

NORM020 


DIMENSION COE p P (4, 1) 

NOR MO 30 


COMMON /SVNTH/LAM, HU, NO, MT, N, J, XCL, YCL,ZCL 

NORN040 


DPDX*2.*COEPP ( 1 , J) *XCL*COE p P (3, J) 

NORN050 


DEDY = 2.*COEPE (2, J) *YCL 

NORM060 

• 

DEDZ=2.*COEEE (2, J) *ZCL 

NORM070 


DENOH=SQRT(DEDX*D?DX»DPDY*DPDY*DPDZ*DPDZ) 

NORM080 


LP: GKBEXT DECK 


PRINCETON ONIVERSITT TINE-SHARING STSTE1 


EYE*DPDX/DENON 

JA Y-DPDY/DENON 

KA Y*DPDZ/DENON 

ONE* SQRT (JAY»-JAY*KAY*KAY) 

RETURN 

END 
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NORN090 
NORN 100 
NORN 110 
NORN 120 
NORN 130 
NORN 14 0 


FUNCTION ARCCOS(ARG) 

CONNON /THIRD/PI 
IP (ARG) 30, 10,20 
10 A*. 5*PI 
GO TO 40 

20 A* AT AN (SQFT(1.-ARG*ABG)/ARG) 

GO TO 40 

30 A*PI*ATAN (SQRT (1.- ARG* ARG) /ARG) 
40 A RCCOS* A 
RETURN 
END 


ARCS010 
ARCS020 
ARCS030 
ARCS040 
ARCS050 
ARCS060 
ARCS070 
ARCS060 
ARCS090 
ARCS 100 
ARCS1 10 


PU NOTION ERRP(SS) 

EHBF=EBPC (-SS) 

FETUBN 

END 


EERF010 

ERRP050 

EBRP060 


SUBROUTINE PRINT1 ( DT, COS A NG , S I N AN G, RN A , R NO , DR P , PCP, HTP , PL, HTI, HTR, 
1CTI,CTR,CNI,CNR) 

D I PENSION DD(3) , HD (2,5) , PP(4,4) ,QQ(4,4) ,RR (4,4) ,SS (4,4) ,TT (4,4) 
DINENSION OU (4,4) ,P1 (4,4) ,Q1 (4,4) ,R1 (4,4) , PA (4) , PB (4) , PC (4) 

DI PENSION PL { 1 ) ,HTI (1) ,HTB(1) ,CTI (3, 1) ,CTR (3,1) ,CNI (3, 1) ,CNF (3,1) 
DINENSION RNA(1),RN0(1) 


DATA ND/' X-PO' , ' RCB ' , • I- PO' , ' RCE 
1 I PT ' , ' •/ 


', 'Z-NO', 'SENT', 


'DRAG* ,' 


THE PURPOSE OP THIS SUBROUTINE IS TO PRINT OUT THE GROSS SURPACE 
COEFFICIENTS OP THE BODY. 


PORNATS 


*, ' LPT1 0070 
PT10080 

PT 1 0090 

PT10100 
PT101 10 
PT 10 1 20 
PT10130 
PT 1 0 1 40 
PT 10 150 
PT10160 
PT10170 
PT 10 180 


1 POBNAT(//1X,50 (••* ) ,' GROSS SURPACE COEFFICIENTS ',50('*')/' NOLEC 
1ULAR NEIGHT',12X,P8.3,3 (19X, P8.3)/25X, 

2 ' INC. REP. TOT. INC. REP. TOT. INC. 

3REP. TOT. INC. REP. TOT.') 

10 PORNAT (' NUNBER PLUX ', 4(P9. 3, 18X) ) 

12 POBNAT(1X,2A4,2X, 'SHEAR • , 4 (3P8.3, 3X) ) 

14 PORNAT (1 IX, 'PRESSURE • , 4 (3P8. 3, 3X) ) 

16 PORNAT(1 IX, 'TOTAL • , 4 (3P8 . 3 , 3 X) /) 

18 PORNAT (• HEAT TRA NSFER • , 7X , 4 ( 3P8. 3, 3X) /) 


********************************************************************** 


PT10280 

PT10290 

PT10300 

PT10310 
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A 
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RNR*0.0 

DO 50 NT* 1,3 

DD (NT) «PNA (NT) • RN'J (NT) *DR P/DT 
t 50 tRI KSB«tNA(IT) •IBO(BT) 

WRITE{6,1) (R.NA (NT) ,NT*1,3) ,BNB 

PP=Pl(1) *PCP/DT 

QP* PL ( 2) • PCP/DT 

RP*PL (3) *PCP/DT 

SP*PP»QP*RP 

f WR ITE (6, 10 ) PF,QP,RP»SP 
DO 200 1*1,3 
PP (4,I)«0. 0 
QQ (4,I)*0.0 
RR (4 , I) * 0. 0 
SS (4,1) *0. 0 

* TT (4, I) *0. 0 
00 ( 4 , 1 ) * 0. 0 
PI (4,I)*0. 0 
Q 1 (4 , 1 ) *0. 0 
R1 (4,I)*0.0 
DO 150 NT* 1,3 

« PP (NT, I) *CTI (NT, I) *DD(HT)/RHR 
QQ(NT,I)*CTR (NT, I) *DD (NT) /RRR 
SS (NT, I) *CNI (NT, I) ♦DD(NT) /RNR 
TT (NT, I) *CNP (NT, I) *DD (NT) /RNR 
PI (NT, I) =PP (NT, I ) ♦ SS (NT, I) 

Ql (NT, I) *QQ(HT,I) *TT (NT, I ) 
f RR (NT, I) = PP (NT, I) »QQ (NT, I) 

00 (NT, I) *SS (NT, I) ♦ TT (NT, I) 

B1 (NT,I)*P1 (NT, I) ♦Ql (NT, I) 

PP (4,I)*PP (4,1) *PP (NT, I) 

QQ (4,1) *QQ (4,1) (NT, I) 

RR (4,1) *RB (4,1) >RR (NT, I) 

♦ SS (4,I)*SS (4,1) + SS (NT, I) 

TT (4,1) = TT (4,1) *TT (NT, I) 

00 (4, I) *00 (4,1) *00 (NT, I) 

PI (4 , I ) * P 1 (4,1) ♦ PI (NT, I) 

Ql (4 , I) * Q 1 (4,1) *Q1 (NT, I) 

R 1 (4 , I) *R 1 (4,1) ♦Rl (NT, I) 

•150 CONTINOE 

WRITE (6, 12) (WD (J , I ) , J* 1,2), (PP(K, I) , QQ (K, I) , RB (K , I) , K= 1 , 4) 
WRITE (6, 14) (SS (K, I ) , TT (K , I) ,U0(K,I) ,K=1,4) 

WRITE (6, 16) (PI (K,I) ,Q1 (K, I ) ,R1 (K,I) ,K*1,4) 

200 CONTINOE 
A A=COS ANG 

• BB*SINANG 

DO 300 1*4,5 
DO 250 K= 1 , 4 

PP (K,4)*AA*PP(K, 1) ♦BBNPP (K , 2) 

QQ (K , 4) * A A *QQ (K, 1) ♦BBNQQ (K,2) 

RB (K,4)=AA*RR (K, 1) ♦EB*RR(K,2) 

• SS (K,4)*AA*SS (K, 1) ♦BBNSS (K,2) 

TT (K,4)*AA *TT (K, 1) ♦BB*TT (K, 2) 

00 (K,4) = AA *00 (K, 1) ♦3B*00 (K,2) 

Pi (K,4)=AA*P1 (K, 1) ♦BB*P1 (K,2) 


PT 10 400 


PT10460 
PT10470 
PT10480 
PT 10490 


PT10630 
PT10640 
PT 1 0650 
PT10660 

PT106e0 
PT 10690 
PT 10700 
PT10710 
PT 10720 
PT10730 
PT 1 074 0 
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Q1 (K,4)»AA*01 (K,1) ♦BB*Q1 (K,2) 

R1 (K,4)-AA*B 1 (K, 1) ♦BB*R 1 (K,2) 

WRITE (6, 12) (WD (J,I) ,J« 1,2) , (PP (K, «) , QQ (K,4) ,HR (K,4) ,K» 1, 4) 
WRITE {6, 14) (SS (K,4) ,TT (K,4) ,UU (K,4) ,K*1,4) 

WRITE (6, 16) (PI (K,4),Q1(K,4).R1(K,4),K*1,4) 

AA— SIIANG 
BB-COSANG 
CONTINUE 
HD*HTP/DT 
PA (4) >0. 0 
PB (4) *0.0 
PC (4) *0.0 

DO 400 HT* 1,3 OR.C"' 

PA (PIT) *H II (HT) *R HA (HT) *8NU (HT) •HD/FHR 
PB (HT) *H TR (HT) *RHA (HT) • BNU(HT) *HD/RH R 
PC (HT) «PA (HT) ♦PB (HT) 

PA (4) *P A (4) »PA (HT) 

PB (4) *PB (4) tPB (HT) 

PC (4) *PC (4) *PC (HT) 

CONTINOE 

WRITE (6, 18) (PA (I) ,PB(I) ,PC(I) ,1*1,4) 

RETURN 

END 


PT 10 750 
PT10760 


PT10800 
PT10810 
PT 10820 
PT10830 


SUBROUTINE PRINT2(AKN, XSTART, DT, RNU, RHA, DPP, PC 
1, HTSI, DELANG,N WEDGE, XS, XCB, YCB , HTS , NTS , NTS P, UT 
DI PENSION RHA ( 1) ,PNU (1) ,DELANG (1) ,N WEDGE (1) , XS 
DIHENSION HTS (3, 12 , I 3) , NTS (3, 12, I 3) , NTSP (3, 12, 
DI HENS ION UTT (3,12,1 3) , VTS ( 3 , 1 2, I 3) ,UTLI (3,12, 
DIHENSION VTSI ( 3, 1 2, 1 3) , HTSI (3,12,13) 

COHHON /PIPTH/ND 


C P, HTP, UTLI ,UTTI, VTSI 
TL, UTT, VTS, 12, 13, IP) 

S ( 1 ) , XC E ( 1 ) , Y CB ( 1 ) 
,13) , UTL ( 3, 1 2, 1 3) 

, 13) , UTTI (3,12,13) 


PT10950 

PT10960 


THE PURPOSE OP THIS SUBROUTINE IS TO PRINT OUT 
ON SURPACE OP THE SURPACE COEFPICIENTS 


THE DISTRIBUTION 


PORHATS 


8 PORHAT (//I X,45('**),* DISTRIBUTION ON SURPACE 
1 TOT. INC. TOT. INC. fOT.VIU#* 
214X, • HOL. HOLE SAHP NUH . SKIN SKI 
3 HEAT HEAT*/' RO. CENTER DELX CENTER 
4RACT. ' , 1 OX , 

5 'PLUX PBCTN PRCTN SURE SURE 

10 PORHAT (IX, I3,P8.3,P7.3,P9. 3, P8 . 3, 1 X, 2P8. 4, 16, 7 

11 PORHAT (37X,P8. 4, • 1. 0000 • , I 6, 7F8. 4) 


PT20060 

PT20070 

N PT20080 
PT20090 

PT20 100 

PT20110 

PT20120 

PT20130 

PT20140 

PT20150 

PT20160 


',45 (' ♦' )/7lX, 'INC. 
SEGHENT GEOHETRY', 

N PRES- PRES- 
DELANG*, 4X,' WGHT. 


TR NS P 
P8.4) 


TRNSP' ) 


RHR=0. 0 
DO 50 HT® 1 , I P 


PT20230 

>PT20240 

PT20250 

PT20260 


* 

td 
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50 RnB«RNR«RNA (!!T) •B MO (NT) 

WFITE(6,8) 

x*o 

00 110 N*1,ND 
DTT*DT*TCB (N)/180. 

P*XS ( W ) 

0*2. • ( (XCB (N)-XSTART) *AKN-XS (N) ) 

ANGLE-0. 

R*0. 

J* 0 

DO 105 L*1,2 
B* R*.5*ANGLE 
A N GLE S DE LA NG (L) 

B*R“. 5*A NGLE 
IC NT* N WEDGE (L) 

IP (ICNT. EQ.O) GO TO 105 
PNLT«PCP/(DTT* ANGLE) 

Qn LT*DBP/ (DTY*ANGLE) 

SNLT*RTP/ (DTY*ANGLE) 

DO 100 K* 1 , IC NT 
B*R+ANGLE 

1 * I ♦ 1 
J-J4 1 
H 3*0 
P3-0.0 
Q3*0. 0 
Q4*0.0 
R3-0.0 
R4-0. 0 
S3*0. 0 
S 4*0. 0 

DO 90 NT* 1 , IP 
N 1 -NTS (BT, N,J) 

N3-N 3>N 1 

P 1 *NTSP (BT,N,J) *PBLT*PNO (BT) 

P3*P3*P1 

Q 1*SQBT (OTLI (NT,N, J) **2*0TTI (NT, N, J) •• 2) *FNO (BT) *F BA (BT) *QSL1/RSB 
Q2=SQRT( OTL (BT, N, J) ** 2 + UTT(BT,N,J) **2) •RNU (BT) *RSA (BT) *QBLT/RBR 
Q3*Q3»Q1 
Q4=Q4»Q2 

R1*7TSI(BT,N,J) ♦RNO(NT) *RNA (BT) •QNLT/BNR 

R2* VTS(BT,N,J) *RNO (ST) ♦RSA (NT) • QBLT/R SR 

S1*HTSI ( BT, N, J) •RNU(BT) *RB A (BT) •SBLT/RBP 

S2* HTS (BT, N, J) *RNO (NT) *FSA (ST) *SBLT/RNF 

F 3-F3* R 1 

fi4*F4*F2 

S3*S3»S1 

S4-S4+S2 

9 0 WB ITE (6, 10)1, P,Q,R, ANGLE, RBA (BT) ,FNO (NT) , B 1 , P 1 , Q 1 , Q2 , R 1 , R2 , S 1, S2 
WRITE (6, 11)RBF,N3, P3,Q3,Q4,R3,R4,S3,S4 
100 CONTINOE 
105 CONTINOE 
110 CONTINOE 
FETORN 
END 
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PT20280 

PT20320 

PT20330 

PT20340 

PT20350 

PT20360 

PT20370 

PT20380 

PT20400 

PT20420 


PT20440 

PT20450 

PT20460 

PT20470 

PT20480 

PT20490 

PT20500 


PT20660 

PT20670 

PT20680 

PT20690 
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SUBROUTINE PRI WT 3 C I P, , MS, NWEDG, 1 2, I 3, 14, I 5, RRA.XS, 

1 HS,TANGN, NT3E, NTCF,NTCV, E?) 

DI RE NS ION FRA ( 1 ) , IS (1) ,IWS ( 1) ,HS (1) ,TANGN (1) , NTSE (3,12,13) 

DI HENSIGN NICE (3,14) , NTCV (3 , 14 . 2, 15, 3) , EV (3. 14 . 2,1 5, 3) ,QUO (3 


EOPRATS 

2 EOPRAT (//I X,40 ('•')# ' HOHENTS OF INCIDENT DISTRIBUTION EUNCTIO 
1,40 (•♦*)) 

6 EORHAT (/21X,I5,* UNCOLLIDED HOLECULES* , E8. a , 27 X, 1 5, » COLLIDED 
1CULES*,P8.4/) 

8 EORRAT (15, 4X, A 3, 12 (IX, P9. 4) ) 

10 EORRAT(12X,12(1X,E9.4) ) 

12 EORRAT ( 1 H ) 


WRITE (6,2) 

DO 155 I * 1 , NS 
HR*RS (I) 

ITT«IWS (I) 

N* (RR-1) *NWEDG»ITT 

S2o 150 " T-, ' IP ORIGINAL* 

B= 1 i OF POOR QUALH 

IC*NTCE(HT,I) 

ID* NTSP (RT,RR, ITT) -IC 
E= NTSP (HT # HR,ITT) 

IE (E.Ll.O.) GO TO 110 
A* IC/B 
B* 1.-A 

) WRITE (6, 6) IC,A,ID,B 
E* NTCP (RT , I) 

DO 121 NC* 1,2 
DO 120 K* 1 , 3 
QUO ( NC, K) * 0« 

IE (E.EQ.O. ) GO TO 120 
QU 0 ( NC, K ) * NTCV (HT, I,NC, 1,K)/E 
I CONTINUE 

E*NTSP (HT, HR, ITT) -NTCP(RT,I) 

I CONTINUE 

WRITE (6,0) N, RRA(HT) ,PV(RT,I, 1, 1 , 1) , QUO ( 1 , 1 ) , P V (HT,I, 1, 1,2) 
1 (1,2) ,PV(HT,I, 1, 1, 3) ,QUO (1,3) , PV (HT,I,2, 1,1) ,QUO (2, 1) , PV (HT, I, 
22) , QUO (2, 2) ,PV (RT, I, 2, 1,3) , QUO (2, 3) 

IE (HJ. EQ. 1) GO TO 150 
DO 140 J*2 , RJ 
E= NTCP (RT, I) 

DO 131 NC* 1,2 
DO 130 K*1 ,3 
QUO (NC,K) *0. 

IE (E.EQ.O.) GO TO 130 


IWS, 


PT30020 

PT3 

PT30050 
- PT 30060 
PT30070 
PT30080 
PT 30090 
• PT30100 
PT30110 


ROLE 


PT30170 
PT 30180 
PT30190 
PT30200 
PT30210 
PT30220 
PT30230 
PT 30240 

PT30260 

PT30270 

PT30280 

PT30370 

PT30380 


PT30400 
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QUO(NC,K) -NTCf (RT, I,NC, J,K)/E C PT3 0640 

130 COMTIROE OF PCi L .< Q PT306S0 

E* NTSP (HT, HR, ITT) -NTCP (HT, I) PT30660 

>131 CONTINUE PT30670 

14 0 WRITE (6, 10) PV (RT,I,1,J, 1) .000(1, 1) , PV (RT, I, 1 , J, 2) , QUO ( 1, 2) ,PV (IITPT30680 
1#I#1#J#3) , QUO ( 1 , 3) , P V (RT,I,2,J,1) ,000(2, 1) , Pf ( NT, 1 , 2, J , 2) , QOO (2, 2) PT30690 
2,P7 (NT,I,2,J,3) , QOO (2, 3) PT 30700 

150 WR ITE (6, 12) PT30710 

155 CONTINUE 


RETURN 

END 


PT30720 

PT30730 


SOBHOOTINE PR I NT 4 (BSP, CHI , R NO , I , T RP, NUHC EL, PDN, WTR , DB, NS, TIP, XV, 
1YV,ZV,KS,NB,XC,YC,ZC,LEV,LKW) 

INTEGEB* 2 LEM ( 1) 

NB, NUNCEL, NS 

PDN ( 1 ) ,PNU (1),CHI (1) , WTR (1) , N0BCEL(1),THP(I, 1) 

DB (1 , 1) ,NB (1,1) ,XV (I, 1) , Y V (I, 1),ZV (I, 1) , DBT J 3) 

IC ( 1) , YC(1) ,ZC(1).LEV(1) 


INTEGEB*2 
DI PENSION 
DIMENSION 
DI RE NS ION 


, TRP (I , 

# NS (I, 1) 


CORRON /POBTH/NBX 


TRE PURPOSE OP THIS SUBROUTINE IS TO 
PLOW-FIELD PROPERTIES. 


PBINT OUT THE INSTANTANEOUS 


POBRATS 


1 PORRAT (//I X,45(**'),* INSTANTANEOUS PLOW FIELD I NPOR RATION ',45(«* 
1 *)) 

2 PORRAT(/2X, •LPVEL«», 13, 3X, ‘WEIGHTING FACTOR (HA X) *», 13, 3X, • WEDGE AN 
1 GLE = *,P7.2,* DEGP EES' , 3X, • RADIAL POSITION = • , E 1 1 . 3/2 X, ' BOX • X PO 
2SITION SARP DENSITY HACH NO X VEL. Y VEL. Z VEL. T (KIN) T(RO 
3T) TERP. 14X, 'ROLE FRACTIONS*) 

3 PORRAT (//IX, 46 (••• ) ,* ACCURULATED PLOW PIELD I NPORRATICN ',46('**) 
1 ) 

4 PORRAT (IX, 14, El 1. 3 , 16 , 8P 8. 3 , 3 X , 3 E 1 1 . 3) 


PT50050 
PT50060 
PT50070 
PT500R0 
PT50090 
PT50100 
PT50110 
PT50120 
PT50130 
FT50140 
PT50150 
PT50 160 
PT50170 


IF(RS.EQ.O) WRITE (6,1) 
IP(KS.WE.O) WRITE (6, 3) 

♦ DO 40 HT* 1,3 
40 DBT (NT) =0. 0 

PDA*0. 

CHT*0. 

DO 50 HT* 1 , NSP 
CHT=CHT*CHI(RT) *RN U ( RT) 

• 50 FDA=PDA*PDN (HT) *WTR (RT) 

YCT=0. 0 
ZCT--0. 0 
LEVEL® 1 


PT50220 
1 PT50230 
PT50240 
PT50250 
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DO 110 

H- 1 , N BX 

PT50290 

N-NUNCEL (N) 


IP (N.LE 

. 0) GO TO 110 



IP ( (ZC (H).EQ.ZCT) .AND. (YC (1) . EQ. YCT) ) 30 TO 52 
ZCT-ZC (n ) 

ICT- YC (N ) 

IP (N.GE. LEV (1) ) LEVEL-2 
IP (N.GE. LEV (2) ) LEVEL-3 
HR ITE (6,2) LEVEL, LKH (N) ,ZCT, ICT 
52 ICT- XC (H) 

NSANP-0 

ORtQINAL l 
of p0( 

Y7N-0. 

zvn-o. 

TPPH-O. 

TRri-O. 

£- 5 1 . 

P-0. 

DO 100 HT«1,NSP 
NSANP»NSANP*NS (NT, N) 

X V N* X V N» XV (NT, N) *RNU (NT) *HTN (NT) *NB(NT,N) 

YVN«YVH*YV (NT, N) *PNU (NT) • HTN (NT) • NB (NT, N) 

Z V H* ZV N* Z V (NT, N) *P NU (NT) ♦ HTN (NT) • N B ( S T , N ) 

DBA- DBA ♦ DB (NT, N) *HTN (NT) 

TNPN*TNPN*HTN (NT) *HN0 (NT) • TNP(NT,N) *NB (NT, N) 

TBPN-TRPN^RNU (NT) ♦ NB (NT, N) *TRP (NT, N) 

E-E*HTN (NT) *RN0 (ST) *NB (HT,M) 

100 P»P*RNU (NT) *NB (NT, N) 

DBA-DB A/PDA 

IP(E.EQ.O.O) GO TO 55 

XV N-XVN/E 

YVN-YVN/E 

ZVN-ZVN/E 

VS«XVS**2*YVN**2*ZVNN*2 
THPN-TNPN/E-VS 
TRPN-TBPN/P 
55 CONTINUE 

TTH- (TNPN»TRPN)/(2.5*CHT) 

TNPN-THPN/1. 5 

IP (CHT.NE.-1.) TRPN-TR PN/(1.*CHT) 

AHS-SQBT (VS) 

IP (TTN. GT. 0. ) ANS-SCRT ( (5. *2. *CHT) *VS/(TTN* (3. 5*CHT) ) ) 

CCZ-COS (ZCT/57. 29578) 

SCZ-SQBT (1.-CCZ**2) 

PVN-ZVN*SC Z-YVN*CCZ 
TVN- YVN*SCZ*ZVN*CCZ 
DO 60 NT-1, NSP 
DBT (NT) -RNU (NT) *NB (NT, N) 

IP(P.NE.O.) DBT(NT)*DBT(NT)/P 
60 CONTINOE 

WRITE (6,4) N,XCT,NSANP,DBA, A NS, X V N, R VN, T VN ,TNPN, TBPN,TTN, (CPT(J) , 

1J-1, 3) 

110 CONTINUE PT50470 

BETURN PT 50480 
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END PT50490 

$ /LKED.S YSLNOD DD DSN=U. GKBSPACE. ROTATION (PORTH) , 

| / DISP=OLD, UNIT= 3350# VOL=SEF=RES1 01 , SPACE= 

| VLKED.SYSIN DD * 
j INCLUDE STSLNOD (FORTH) 

V - ENTRY MAIN 

/ EXEC COMPRESS, DSN s 'U. GKBSPACE. ROTATION* ,RLSE=RLSE 


f : 


4 . 


my 

r-r, r> • 


-4 
• \* 


8* 


f* ' 
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APPENDIX B 


MASTER'S THESIS OF Y.P. TSAI 


COLLISION INDUCED VIBRATIONAL TRANSITION 
PROBABILITIES IN DIATOMIC MOLECULES 


ABSTRACT 


In order to improve the Monte-Carlo Direct Simulation 
calculations for hypersonic flow in the transition regime# we 
have to incorporate the effects due to vibrational non- 
equilibrium and potenial dissociation for a diatomic gas. 
the state-to-state transition probabilities are desired. In 
this paper, we model the diatonic molecule as a harmonic 
oscillator which collides with another molecule collinearly. 
Two different methods have been developed, the first one is 
the semi-classical treatment and the second one is the fully 
quantum mechanical approach. The interaction potential 
between two molecules is assumed to be the Lennard-Jones 12-6 
interaction law which is a small perturbation to the 
colliding system. Some numerical results of the state-to- 
state transition probabilities and comparisons are presented 
in Chapter 4. Discussions, which present the important 
aspects of this kind of problem for further study, are made 
in Chapter 5. 


Chapter 1 Introduction 


The characteristic flow in a highly rarefied gas is 
called "free molecular flow". In this regime the mean free 
path is large compared to the characteristic dimensions of an 
aerodynamic body in the flow; and molecules that impinge on 
the body, and are then reemitted from ,it will, in general, be 
far away from the body before they strike another molecule. 
The characteristic flow in a moderately rarefied gas is 
called "slip flow". The flow regime intermediate between 
slip and molecular flow is known as the "transition flow 
regime". It corresponds to densities for which the mean free 
path has the same general order of magnitude as the 
characteristic dimension of the flow field. There is a 
dimensionless parameter called the Knudsen number Kn, 
introduced to serve as a criterion for determining the 
relative importance of these rarefaction effects. 

— M 

where Kn * d ~ ££ 

and X « molecular mean free path 

d = characteristic dimension of vehicle 
M = Mach Number 
Re = Reynolds Number 

Free molecular flow is usually defined as that flow for which 
Kn>10. Slip flow is characterized by a Knudsen number of a 
few per cent, 0.01<Kn<0.1, and the intermediate transition 
regime corresponds to Knudsen number in the range 0.1<Kn<10. 

B-2 




These values are, of course, arbitrary. Since the Knudsen 
niimber is defined as the ratio of particle mean free path to 
body size, it therefore increases with altitude for a fixed 
size body travelling through the atmosphere. 

Generally, for a body of the order of a meter at 
altitudes 150 Kilometers above the earth's surface, the mean 
free path of the particles is much larger than vehicle size 
(here the free stream mean free path X°°~ 40m). Hence the 
particle-particle collision process in the vicinity of the 
vehicle need not be considered and the relation of 
measurement on the surface to atmosphereic properties is 
explained in a relatively straightforward manner through free 
molecular theory. Below 90Km, (here the free stream mean 
free path X°°~2.5 cm), the Knudsen number is so small that the 
fluid can be treated as a continuum with limited influence of 
transport properties and slip-flow boundary conditions. 
However, between these two zones, i.e. in the lower region of 
the thermosphere, is what we called the "transition flow 
regime” in which neither of the limiting theories is 
applicable. 

Plight at very high altitudes often involves extremely 
high velocities and resulting high gas temperature. At 
velocities which correspond to effective temperature of the 
order of a few thousand degrees Kelvin, the so called "real 
gas" effects associated with vibration, dissociation, and 
ionization of the gas molecules can begin to be of 
importance. We are interested in atmospheric entry of a 


vehicle such as the space shuttle. The Mach number is 
generally above 20 in passing through "transition flow 
regime" and the flow is hypersonic there. At such high 
speeds, any significant number of collisions between incoming 
particles and those reflected from the body can produce 
extreme changes in the environment near the surface of the 
vehicle. Measurements on the surface eive thus strongly 
affected making inference of conditions in the ambient 
atmosphere extremely difficult. For the purpose of data 
interpretation, previous calculation based on direct 
simulation Monte-Carlo computer technique have been developed 
by G.A. Bird(l). By using the Monte-Carlo method, the real 
gas molecules are replaced by their statistical models, and 
the motion of one or more of the chosen particles is traced 
by the computer. In the "Bird" method the real gas molecules 
are simulated by several thousand modeled molecules, rigid 
spheres in the simplest version(l). Theoretical calculations 
of the heat transfer and aerodynamic characteristics of a 
body submerged in the transition flow regime may be carried 
out in this way. Modifications involving more realistic 
interaction laws have been also carried out. Molecules, 
however, contain internal structure, which is important 
primarily for its effect on the energy content of the flowing 
gas. Being composed of nuclei and electrons that have motion 
relative to the center of mass of the molecule, the molecules 
can possess rotational and vibrational as well as electronic 
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internal states* Therefore, translational energy is not 
necessarily conserved in all collisions. The hypersonic flow 
past the sharp leding edge of a flat plate incorporating the 
effects of rotational non-equilibrium for a diatomic gas was 
studied by D.I. Pullin, J.K. Harvey, and G.K. Bienkowski(2) , 
and subsequently applied to other blunt body problems(3,4). A 
different model was used to incorporate the same effect in 
other works such as references 5 and 6. At the present 
stage, we want to improve the Monte-Carlo calculations by 
including the effects due to the vibrational degree of 
freedom of diatomic molecules. 

It is convenient to divide vibrational energy exchange 
into two cases: the V-V process, in which the total 
vibrational quantum number of the system is unchanged, and 
the V-T process in which energy is exchanged between 
translation and vibration without conserving the vibrational 
quantum. For harmonic oscillators in the V-V process, the 
amount of vibrational energy lost by one molecule is gained 
by ths other and no vibrational-translational energy transfer 
occurs. Considerable interest has been shown in the details 
of inelastic molecular collisions. The treatment of 
scattering between particles with internal structure is 
capable of producing differential and total cross section for 
state-to-state transitions. Our purpose is to calculate 
scattering cross sections for different transitions with 
known initial and final states as a function of collision 
energy or initial relative velocity. We emphasize here that 


we need state-to-state transition cross sections rather than 
spine overall "rates of transition" (rate coefficients) which 
are averaged over an equilibrium velocity distribution for 
the relative translational motion (e.g. Maxwellian 
distribution). The reasons are twofold: 

1. We are dealing with a hypersonic flow system in a 
highly non-equilibrium state with a non-Maxwellian 
distribution of relative velocities of collision. 
The relative contributions of different energy 
molecules to the overall rates may therefore be 
drastically different than in the equilibrium 
state. This effect is accentuated by the steep 
rise of cross-sections with energy coupled to the 
generally decreasing magnitude of the distribution 
function with energy. This unifies that small 
Changes in the fraction of molecules with high 
energies due to the non-equilibrium aspect of the 
flow can have extreme effects on inelastic 
processes without corresponding effects on mean 
properties such as density or fluid momentum. 

2. The Direct Simulation Monte Carlo Code (DSMCC) 
consists of tracing a set of "test" molecules 
through a designated volume surrounding the body. 
The velocities and internal states of the 
simulated molecules are altered on the basis of 
collisions computed (as determined by local 


collision probabilities) at fixed time steps. The 
positions are then advanced to new values on the 
basis of motion through the time step increments. 
This detailed computation of individual molecular 
collisions requires, in principle, state to state 
transition probabilities in order to incorporate 

the inelastic energy exchange into the computation 

» * 

of molecular velocities and internal states after 
collision. While the results we desire must 
ultimately be consistent with overall measured 
rates the level of detail necessary within the 
program is well beyond the level of availability 
of experimental data. 

Early theoretical studies of vibrational, rotational, 
and translational energy transfer in collisions were based on 
approximate analytical solutions to the quantum mechanical 
and classical equations of motion. The method of Zener (7), 
later to become known as the distorted wave method, and the 
Bdrn (8) approximation are leading examples of approximate 
solutions to quantum mechanical collision problems based on 
first order perturbation theory. A more detailed literature 
review on previpus work in the field of vibrational 
collisions is given in the next Chapter. 

Instead of doing an approximate treatment of a three- 
dimensional realistic system, in this work, we do an exact 
numerical treatment of a simpler model one-dimensional system 
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which has some important features in common with the real 

one. A calculation of transition probabilities for 

vibrational-vibrational-translational energy transfer in a 

collision of two diatomic molecules is to be presented. This 

simple collision model is approximate, utilizing a collinear 

collision of harmonic oscillators with an exponential 

repulsion between center atoms and no chemical reaction 

between the molecules. It may be argued that the 

configuration allowing the most efficient transfer of energy 

between translation and vibration is that in which the atoms 

are collinear. Collinear or head-on collisions make the most 

significant contribution to the transition probability. The 

averaged probability is equal to the probability of 

excitation in a head-on collision times a "steric factor" 

smaller than unity which takes account of unfavorable | 

trajectories. For homonuclear molecules it is usually taken 

as ^ (the average of cos^e taken over a sphere). A more 

detailed theory for the steric factor of linear molecules has 

been propounded by Herzfeld (9). It is our belief that an 

accurate treatment of a collinear model is of more worth than 

an approximate result for the three-dimensional problem. The 

latter approach frequently contains errors which are 

difficult to estimate. The general magnitudes and trends of * 1 

the transition probability obtained by this restricted 

treatment can show us qualitatively, or semi-quantitatively , 

some characteristic features of the problem. 

Two different methods for calculating transition 
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probabilities are discussed in this paper. One is a semi- 
classicial approach* and the other one is a fully quantum 
mechanical treatment. In the semi-classical calculation** it 
is assumed that the vibrational amplitude of the harmonic 
oscillators are small and so the molecular oscillatioons do 
not greatly affect the external classical collision 
trajectory. The trajectory can be calculated from the 

classical equation of motion. The classical trajectory is 

* 

assumed to define a time-dependent perturbation potential for 
the colliding system and quantum theory is used to derive the 
transition probability. Essentially* the Schrodinger 
equation is solved subject to certain initial conditions 
according to time-dependent perturbation theory. A detailed 
discussion about this theory can be found in the book Quantum 
Mechanic by Schiff (10). 

In the quantum mechanical calculation of transition 
probability, the wavefunction of the whole system is expanded 
in terms of the complete set of eigenfunctions of vibrational 
states of the diatomic molecule. With the aid of the 
orthonormality property of these eigenfunctions, a set of 
coupled second order differential equations is obtained for 
the translational wavef unctions. The transition probability 
is given by the solution to this set of equations in the 
asymptotic region, subject to appropriate boundary condition. 
Several different numerical methods for solving the set of 
coupled equations have been developed by Diestler and Mckoy 


Riley and Kuppermann (12), and Gutshick et al (13). Solving 
a problem of quantum scattering between two diatomic 
molecules is then reduced to the task of finding a good 
numerical scheme for integrating a system of coupled 
differential equations acccurately. In this work, we use IBM 
IMSL ROUINC DGEAR to solve for the scattered wavefunction in 
the asumptotic region and then calculate the transition 
probability. 

In Chapter 2, a brief review of previous semiclassical 
and quantum mechanical methods on vibrational collisions will 
be given so that we can identify the new points in the 
current work in Chapter 3. Chapter 3 is devoted to a 
discussion of the general theory. We derive some equations 
and expressions there which make a numerical algorithm 
feasible. In Chapter 4, theoretical results of state-to- 
state transition probability specifically for N 2 -N 2 
collisions at different relative velocities are presented. 
Comparison is made with published results. Finally, we 
discuss some important problems related to inelastic 
molecular collisions which deserve further study because they 
make extension to a more realistic treatment of molecular 
scattering possible. 


Chapter 2 Literature Review 

In 1931, Oldenberg (14) discussed molecular collision 
processes qualitively to show the persistence of the 
rotational and vibrational motion. Zener (7) was the first 
to give a detailed mathematical treatment for collisions in 
which molecular vibrations are excited or de-excited. He 
restricted himself to collinear collisions between a 
diatomic molecule and an atom. His theory was based on the 
distorted wave method which includes direct transition from 
the initial state to the final state and assumes that the 
probability of transition is small. It is a perturbation 
method and cannot treat, strongly coupled system. 
Takayanagi (15) then extended Zener's one-dimensional 
treatments to three-dimensional collisions. In order to 
save computational labor, the modified wave number 
approximation was introduced. Meanwhile, Schwartz, Slawsky 
and Herzfeld (16) gave a mathematical formulation for the 
Vibrational transitions based on the distorted wave 
approximation due to Jackson and Mott (17), simplified by 
the modified wave number approximation due to Takayanagi, 
in diatom-diatom collisions. Their formulation is referred 
to as the SSH theory now and is a quantum mechanical 
result. For purpose of future reference, we describe SSH 
theory in more detail. 

Consider the head-on collision between two diatomic 
molecules AB and CD (assume harmonic oscillators). For 
exponential intermolecular interaction between nearest 
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Atoms B and C, one has , 

V - V exp(-ar) 

(2-1) 

c V e exp [-a J 

where R is the distance between centers of mass of two 
molecules , rj and r 2 are vibrational coordinates, ~ is the 

t * 

range of the potential and V 0 is a constant. 

^ 

*1 * m A + ' • 2 " » c + i” B 


m 1 is the mass of the i-th atom. Solving the Schrodinger 
equation, the transition probability is given in the closed 
analytic form: 

2 2 
Pfn^nj+fij^) * ;T"! I |V2(n2n2)| ^cosh irg^-cosh 7 rq^ 


( 2 - 2 ) 


where 


sinh rrq’.sinh irq 

V l (n l n l ) " f + " s i< n i' r)ex P^ aA l (r “ r el )Z l (n l' r)dr <2-3) 

<* »00 


. ( + ® . 

V 2 (n 2 n 2 ) “ Z 2 (n 2 ,r) exptaX 2 (r-r e2 ) Z 2 (n 2 ,r) dr (2-4) 

~CO 

Z^(nj,r) is the vibrational wave function for harmonic 
oscillator "i" in quantum state njj r e j and r e 2 are 
equilibrium separations for AB and CD respectively, and 


q = q 


n,n 


12 


2kn2n2 
”* a 


(2-5) 


q' 


qn i n 2 


2kn^n^ 


(2-6) 
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q « 2 - q 2 - - (j-§^) + e 2 (n 2 > " e l ^ n i> " E 2 * n 2 )J (2-7) 

The wave number of relative motion before and after collision 

^nln2 an< * k n i' n 2 » which satisfy the energy conservation law 

* 

h 2 kn 2 n, h 2 k 2 nin' 

e^ni) + E 2^ n 2^ + — 2y “ e l^ n :P + e 2* n 2* + 2 y (2"8) 
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u is the reduced mass of the whole system; e i (n) is the 

energy of molecule "i" in the n-th vibration state. For 

the special case, V-V transition, in which n i +n 2 =sn i +n 2 and 
Aq*0. Applying L'Hospital’s rule, we get; 

t 2 2 

Lim q - q c 2q 

qt+q cosh 7rq' - cosh nq tt sinh Trq 

Then the transition probability for V-V process becomes 


pUjn^nJn^) = I v i (n^) | 2 |v 2 (n^n 2 ) | 2 q“ 


(2-9) 
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SSH theory has been most widely used for quantitative 
comparison with experimental measurements of vibrational 
relaxation, but the coupling between rotation has been 
ignored. 

Zelechow, Rapp and Sharp (ZRS) (18) have developed a 
semi -classical method for calculating transition 
probabilities for V-V and V-T energy transfer in a 
collision of two diatomic molecules. Their basic 


are 
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Assumption arc: 

(1) The perturbation potential is linearized in the 

oscillator coordinates. 

(2) The collision velocity is not too high (e.g. the 
upper limit for N 2 -N 2 collision is lOKm/sec) and 
the collision induced time-varying force constant 
k’(t) is small compared to k# the characteristic 
force constant of the molecule. 

Under these two conditions# Kerner (19) method can be 
applied to solve the Schrodinger equation and closed form 
analytical results are obtained.' However# this approach 
restricts itself to the transitions of processes of: 
symmetric type only. The general formula is: 

AB(n)+BA(m) > AB(n ' )+BA(m' ) 

where n,m are vibration quantum numbers before collision 
and n'# m' are that after collision. The collision is 
symmetric in the sense that the two B atoms are in the 
center. 

The development of the high speed electronic computer 
has made it possible to solve the collision problem by 
direct numerical techniques. T.E. Sharp and D. Rapp (20) 
have calculated the vibrational transition probabilities 
for collisions between a diatomic molecule and an atom. 
In their semi-classical treatment# an N-state approximation 
method is used# in which the total wave function is 
expanded in terms of N eigenfunctions of stationary states 
of the system including the initial# final and all 
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energetically intervening states. A Runge-Kutta single- 
step integration method is employed in the computation 
program. Generally, the value of N needed in expanding the 
total wave function increases with collisioon velocity. An 
"exact" solution for any transition probability Pj.^ is 
reached when the addition of more states to the computation 
results in no significant change in Pj+k* We extend this 
method to collisions between two diatomic molecules 
(Chapter 3-A) . 

In quantum mechanical treatment, of collisions between 
two diatomic molecules AB and CD, taking B and C as the 
inner atoms of the system, the total wave function is 
expanded in terms of normalized vibrational wave functions 
Z AB ( n i» r i) and z CD^ n 2 ,r 2^* That is: 

^ n 2 f °l n 2 (R) Z AB (n l' r l ) Z CD (n 2 ,r 2 ) 

Inevitably, we have to solve a system of coupled 
differential equations, which are equivalent to the 
Schrodinger equation, of the following form (detailed 
discussions will be given in Chapter 3-C). 


777 ^-7 + k n'n* f n - (R) = 2 £ <n.n' |v|n.n 2 >f 

2y dR 2 n x n 2 ^ n 2 1 2 12 n l n 2 


(R) (2-10) 


where <njn 2 | v|n^n 2 > is the matrix element. In principle if 
we can obtain the solution to equation (2-10) with the 
asymptotic form 


or 




! 



t; 


(R) 


f ' • 
n l n 2 

f n£n^ m 


R ■+■ - » 


n l n l n 2 n 2 


exp (-ik 


n i n 2 


R) 


+ A. 


n{ny n i n 2 ex P < +ik nin' R) 


( 2 - 11 ) 


R-*"f°° 


the probability per collision for transition (n^,n 2 > 
■■■■> (n^n^) will be given by: 


Pf^n^njn^) = n l n 2 

k 

n l n 2 


n i n 2 n l n 2 


(2-12) 


A number of numerical methods (7-9) have been proposed for 
solving the systems of equations (2-10). However, due to 
the rapidly oscillating wavelike solutions to the 
Schrodinger equation, the numerical technique is not 
straightforward. Riley (12) developed the initial-value 
technique with periodic "reorthogonalization". Gadschick 
et al. (13), on the other hand introduced a technique of 
integration using Diriehlet boundery condition and sinple 
one-step Euler integration. A new method for constructing 
wave function for bound states and scattering has been 
proposed by Roy G. Gordon (21), perhaps this procedure can 
save much computer time. Our quantum mechanical treatment 
of this molecule scattering problem is similar to the 
method due to Riley and Kuppermann (12). It is relatively 
simple and straightforward, but in our procedures, the 
virtual states (energetically inacessible) are not included 
in the total wavefunction expansion. 
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Chapter 3 Theory 


A. General Formalism 

The collision model is shown in Fig. 3-1. 


Fig. 3-1 Collision Coordinates 


This figure is the collinear collision configuration 
between two diatoms AB and CD. Assuming that CD is the 
target, and AB is the incident projectile from right. The 
laboratory coordinates of A. B, C and D are x A , x B , x^ and 
x D ; their masses are m A . ro B , m^ and m D respectively. Let 
Vab an ^ V CD k e t ^ ie binding potential of molecules AB and 
CD. The short range interaction is assumed to be a sum of 
interatomic interactions. 


^INT “ V AC (x A‘ X C ) + V AD (x A" X D* + V BD (x B~ X D* + V BC* X B“ X C* 


The interatomic potentials are exponentially decreasing 
functions, so that for the collinear configuration under 
consideration, only the term V B q(x b -xq) is important and 
thus 

V INT = V BC* X B“ X C ) 

The Schrodinger equation for the system is: 
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J_ >ii _if. hf. s 2 h 2 s 2 

' ^ 2 m b S? ' 2 « c l ? c ' ^ ^ + v ab (x a- x b> + v cd (* c -x d ) 

+ V INT <X B" X C > J i H x a <x b ,x c ,x d ) - £ tot i(i(x a ,x b ,x c ,x d ) (3-1) 


We designate the distance between the centers of mass of 
two molecules as R. in molecule AB the distance between 
the atoms is x; in CD it is y. x and y are internal 
coordinates, i.e. 


R = 


m A X A +IT1 B X B m C X C +In D X D 


m A +m B 


V m D . 


X " X A - X B 


y * X c * X D 


. m A X A + rn B X B +m C X C +rn D X D 
CM m A +m B +m c +m D 


which is the coordinate of 


center of mass of the whole system, in terms of the new 
coordinxates (x,y,R,R CM ) the Schrodinger equation becomes: 


h 2 a 2 


h 2 a 2 

2p AB 3x 2 2y CD 2y 


h 2 a 2 


3R 


5M j, r 2 + V AB (X) + V CD (y) 

CM (3-2) 


+ V INT | 'M x 'Y' R ' R cm ) E TOT ^^ x 'Y' R ' R cm^ 

where M = n» A +m B +m c +m D = total mass of the system. 
^A+ m B* * m C +m D* 

v = M “ reduced mass of the system 
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Vb 


AB n, A +m B 


* reduced mass of the molecule AB 


*7 

m: 


CD 


'AB 


m C +m D 


^A 

VV 


reduced mass of the molecule CD 


m. 


'CD 


m c +m D 


€ 


u. 


Since there is no external force applied to the system, the 

center of mass of the system moves like a free particle and 

iK R 

its motion can be described by a plane wave? n e CM CM , 

h k cm 

and the energy of the center of mass, T CM = — ,is also 

a constant of motion. This does not affect the energy 
transfer and need not be considered further. We can remove 
the R^-dependent part of the wave function (x,y,R,R^ M ) by 
separation of variables. 

Let 


H'(x,y,R,R CM ) = ^ (x,y ,R) e 


lK CM R CM 


J TOT 


= E + T 


CM 


C 




m 


ji 

2p 


Substituting these into equation (3-2), we arrive at a 
Schrodinger equation concerning the internal coordinates 
x,y and the relative motion R of thee two colliding 
molecules as follows: 


AB 


?,x' 


h 

2y 


CD 


a 2 h 2 a 2 

-TT - — -T- + V M (x) + V (y) + V 

3y^ 2y 3R^ CD 


INT 


(R ' Y AB x ‘ Y CD y) 


i|>(x,y,R) = Eip (x,y , R) 
Define 


X=x-x eq 

x e y-y eq 
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(3-3) 


where x eq end y eq are equilibrium separations of AB and CD. 
Then X and Y are displacements from equilibrium of each 
oscillator. Now we introduce harmonic bonds 
(intramolecular potential) into AB and CD with force 
constants k AB and k CD , hence 

V AB = 1//2 k AB x2 ' 

V CD = k CD Y ' 

A conventional representation of the in termolecular 

potential energy curve is given by the Lennard -Jones 12-6 

equation. Since the elementary models for energy transfer 

are based on expontial potential, the exponential function 
- l x h“ x C^ /L 

V int ( x b" x c ) ~® - £ must be fitted to the Lennard- 

Jones potential (Appendix 1), where L is a parameter 
characterizing the range of the interaction. Landau and 
Teller (22) assumed that only the short range repulsive 
part of the intermolecular potential is steep enough to 
influence energy transfer, so that the long-range 
attractive potential e can be neglected. The molecular 
interaction is then assumed to be an exponential repulsion 
between atoms C and B. 

Let v * initial relative velocity 

2 

E * l/2yv Q * initial relative kinetic 
energy 

R * R - Rj 

where R T is the distance at the classical turning point. 
The potential energy in equation (3-3) may be expressed as 
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v int (X,Y,R) - E o exp [=£ (R-YabX-Ycu) ] 


(3-4) 


Equation (3-3) can be written in the font: 

2 - 2 - 2 - 2 

7 k AB X + 7 k cd 


Mjf. 3 2 

2,1 AB *** "CD 


= h‘ 

2p, 


_a 

SY 


- — + 4 k-«x 2 + i k„_Y 2 


2y 3R 


+ E 0 expt=|(R-Y AB x-Y AB 


X-Y cd Y)]J ^(X,Y,R) - E<MX,Y,R) < 3 " 5A > 


or 




_h 

2y 


AB 


a 2 

17 


_h 

2y 


CD 


BY 


+ 7 k M * 2 + 7 W* + E o ex P< : E< 5 - lr AB x -YcD Y)) 


tJ/(x,Y,R) = ih ~ ViX'Y'R) 


( 3-5B) 


We shall solve the time-independent Schrodinger equation 
(3-5A) by purely quantum mechanical method and the time- 
dependent Schrodinger equation (3-5B) by semi-classical 
method. 

B. Semi-classical Calculation 

Since the deBroglie wavelength of the relative motion 
of two molecules is usually very small compared with atomic 
dimensions (e.g. for N 2 -N 2 collisions at velocity 5Km/sec, 
the deBroglie wavelength is of the order 10~* 3 cm, however 
the dimension of N 2 molecules is of the order of a few A), 
it is a fairly good approximation to use the classical 
trajectory for relative motion. The Classical equations of 
motion are: 


# 
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d 2 R 

dt^ 


V 


AB 


d 2 y, 

— 7 
dc 


d 2 Y 

y o>5? 


9 

9R 


k AB X 


k CD Y 


( 3-6A) 

” 9X ^INT ^ X " Y# k ^ (3—6B) 
“ 35 V IHT ()t,Y,S) (3-60 


Generally, the incident energy is much larger than the 
change in the vibrational energy, or in other words, due to 
small transition probabilities, only a small fraction of 
the translational energy is transferred to vibrational 
energy. We may then assume that during the collision, the 
vibrational amplitudes of the oscillators are not driven to 
large values, that means 

X « L, 

Y«L. « 3 - 7 > 

In a series calculation given by Wolfberg and Kelley (23), 
we can see that conditions (3-7) are justifiable. Wolfberg 
and Kelley have calculated the energy transfer for 
collisions involving two harmonic oscillators via an 
exponential collision with L=0.22A. Other parameters and 
data ares m A «m B =mc*m D *12a.m.u., angular frequency «2.3xl0 14 
sec -1 (cf: for N 2 ”N 2 collisions m A «m B =m c «ro D = 1 4 

a.m.u. ,«4.45xl0* 4 sec“l) , the initial energy E Q = 5.078 ev 
(corresponds to v Q •= 9Km/sec), then the vibrational energy 
transferred to each diatomic molecule is AE C£) * 1.78xl0“ 3 
ev. Obviously, both Ae ab and A&cd Are much less then E Q . 
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The vibrational amplitude never exceeds 0.007 X, and since 
L*0.22 X the conditions (3-7) are fairly well satisfied. 
At low velocities (still high enough so that the deBroglie 
wavelength is much less than the atomic dimension), the 
energy transfer becomes smaller because the oscillator can 
readjust adiabatically to the perturbation caused by the 
incident particle. Conditions (3-7) are satisfied even 
better. Under conditions (3-7), the molecular oscillations 
do not greatly affect the external classical collision 
trajectory. Therefore, one can neglect the motion in X and 
Y in treating the motion in R. Equations (3-6A), (3-6B), 
and (3-6C) may then be replaced by: 



rr 'W S ' x -°' Y * 0) 


(3-8) 


Solving equations (3-8) with V INT given by (3-4), one finds 
that the trajectory Rft) satisfies the relation 


exp(- 



sech" 


u t 

<5I-> 


(3-9) 


R(t) is then inserted into the interaction potential 
function V INT (X,Y,R) to obtain V INT (X,Y,t). In this 
semi-classical treatment, Vj N7 (X,Y,t) is used as a 
transition inducing perturbation acting upon a quantum 
mechanical harmonic oscillator. Finally, from equation (3- 
5B) we get the time-dependent Sehrodinger equation to be 


solved numerically by 
perturbation theory. 



+ 


1 

7 


k AB*‘ 



first order time-dependent 


*2 1 9 Y.bX+Y CD Y 
7^ + 7 k CD Y + E o exp( L } 
3Y (3-10) 


sech 2 (^Hj i//(X,Y,t) - ih <MX,Y,t) 


There is one more comment about the assumptions of 
this semi-classical model. In principle, if the deBroglie 
wavelength associated with the relative motion is much less 
than the atomic dimensions, it is a good approximation to 
use classical mechanics for solving the relative 
trajectory. As just mentioned before, if the criteria (3- 
7) are fulfilled, in other words, each of the oscillation 
amplitudes of the two colliding diatomic molecules is very 
small compared to the characteristic range of the 
interaction potential, a further simplification can be 
made in solving for R(t), the relative trajectory. These 
procedures correspond to the "approximate" classical 
method, because the trajectory R(t) is determined with X 
and Y set equal to zero. As a result, these calculations 
do not include the conservation of energy, and E is assumed 
to remain as the energy in coordinate R, regardless of 
how much excitation occurs in the oscillators. For more 
accurate semi-classical calculations, one must solve 
equations (3-6A), (3-6B), and (3-6C) for "exact" classical 
trajectory R(t) to be used as a time-dependent 
perturbation. Prior to the work of Wolfs berg and 
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Kelley (23) , it has been thought that the criteria (3-7) 

are automatically satisfied for all low-velocity 

* 

collisions. Actually, this is not the case Wolfsberg and 
Kelley proved that the approximate classical method should 
be limited to collisions between a light particle and a 
heavy oscillator. 

For our case of N 2 -N 2 collision, Wolfsberg and 
Kelley's requirement is satisfied. The energy transferred 
to each diatomic species is very small compared to the 
kinetic energy of relative motion. Both molecules are 
negligibly distorted during collision approach and the 
molecular oscillations never deviate substantially from 
their equilibrium configurations. The semi-classical 
approach is a good approximation even within the high 
velocity range in which we are interested. The reason is 
that as v Q increases, the deBroglie wavelength 
characterizing the relative mootion in R is small compared 
to the distance over which the interaction potential varies 
significantly in R, i.e. L.k nln2 >>l. This implies that 
both q and q' defined by equations (2-5) and (2-6) are much 
greater than unity. In this limit, q >> 1 and q* >> 1, the 
quantum mechanical results of equation (2-2) are reduced 
to the classical results of Landau and Teller (22). 

Let w AB and w CD be the angular frequencies for the AB 
and CD molecules, their isolated Hamiltonians are H^ AB ^(X) 
and H<CD) (y) respectively, then 
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U) 


AB 


ui 


CD 


H (AB) (X) 


AB 

^AB 

K CP 

W CD 

£i »*•&** 


„(CD) (V) „ . fii *2, ♦ | 

^CD 3V 

Suppose the individual eigenfunctions of H tAB *(X) and 
H<CD) ( y) are ^B) (x) and , we havc . 


H (AB) 

(X)^ AB) (X) * (n+|) 00 

n * 0,1,2. rf. 

h (CD) 

(Y)4>! CD) (Y) * (j+|)hw CD 4>j CD) (Y) 

j « 0 j. 1 f 2 * a < 

Set 

4> nj (X,Y) = ^ AB) (X) 4»j CD) (Y) 

(3-11) 


w ij = ha) AB + ( 3+^)h0) CD 

(3-12) 


H 0 (X,Y) = H (AB) (X) + K (CD) (Y) 

(3-13) 


H C (X,Y) is the unperturbated Hamiltonian of the system. It 
is obvious that H 0 (X,Y)<J> n j (X,Y) « w n j^ n j <x,Y) (3-14) 

Wij are eigenvalues of the unperturbed Hamiltonian H 0 (X,Y). 
The solutuion to the equation (3-10), i.e. the total 
wavefunction for the system of two oscillators .-if> (X,T,t) 
can be expanded in terms of th© individual harmonic 
oscillator wavefunctions | AB |x) and <p ( Y) . 
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n 

n 

i' $ 


Ql 


*MX,Y,t) * l | a n j< t )^ AB) (X) $.j CD) (Y) e“ i(n+ l )w AB t e“ i(:i+ 7 ) w CD t 


(3-15) 


r.-< 


N. 

i> - 

K 

0 ; 

* - * 

li- 




f! 

I 

J 

f 

f* 

h 


e 


| 


where the expansion coefficients a n j depend on time. 

If the oscillators AB and CD are initially in state N and J 
respectively, then the initial conditions are: 


n « 0,1,2, . . . 


a nj ( -"> “ VjJ 


(Appendix 2) j ■ 0,1,2,... 

The probability of the system ending up with AB in state Q 
and CD in state K is 

2 


NJ+QK 


= I »Q K (+“>!' 


We are now in the position to solve for the expansion 
coefficients a(t). Substituting equation (3-15) into 
Schrodinger equation (3-10), and using the relations (3-11H-4 
P-14) , we find: 

(ih)ZZ |r a .(t)^^ (X) <f>i CD) (Y) e“ l(n+ l “AB ^" 1 (j+ 7 } w CD t 

nj 3 


= E q exp ( 


y ab x+y cd y 


n U_t 
2 / O 


(AB) 


) sech^(^-) ZZ a nj (t)^ ; (X)<^ 


(CD) 


(3-16) 


(Y) 


; -i(n+|)w AB t e “i ( j + j) to cD t 


nj 


Equation (3-16) is multiplied by (X)<J>j < r (Y) on both 


side, where * 


is the complex conjugate function of ‘f’n* 


(AB) 


and <j, jCD) * ( y) £ g the con ,pi ex conjugate of $j CD (Y) , and 

then integrated. Equation (3-16) then becomes: 
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(ih)ZZ ^ a n j (t)6 nn' 6 jj' e” A (n+ l } “ ab* e' 1 (j+ 7 ) a, CD t 


E sech 2 (^) ZZ a nj (t) f/*" 4> n^ ) We Y ABX<j>< AB) (X)dXJ 


(3-17) 


I / +00 4>^ CD) * (Y)e YcD %4 CD> (Y > dy J 

where use has been made of the orthonormal property for the 

set of harmonic oscillator energy eigenfunctions (X) and * < CD) (V) . 

f + " ♦«■>*«> * I [ AB) (X)<JX - « nn , 

) —00 


I co 4 ’r D> * (Y) ^j CD) (Y)dY”= *5 j j • 


V„ ' C « 


v v . - r ♦i? D) * (y)e VcD % ! CD) may 

j ) mmOO J J 


U n i n and Vjij are the coupling terms between states, called 
matrix elements. Equations (3-17) can be written now as: 

I ? a n . j ,(t) - (^|) sech 2 <^> rr a nj (t) VnVj e* i(n+ 7>“AB t 

nj (3-18) 

e -i(j4> <» CD t 

Equation (3-18) is a set of coupled first order 
differential equations subject to certain initial 
conditions. Actually, this set of differential equations 
is equivalent to the Schrodinger equation (3-10). Next, 


,<t) - A n ,<t> + iB nj (t) 


(3-19) 


B- 28 


where A n j(t) is the real part of a n j(t), and B n j(t) is the 
imaginary part of a n j(t). Both A n j(t) and B n j(t) are real 
functions of time t. We also know that U m # n , Vjj are real# 
and 


e i (n+j) ( j+y) o) CD t m cos [( n+ |) WAB t + (j+ 2 -)w C[) t] 

+ isin [ (n+ 2 -)w AB t + 

Inserting equations (3-19) and (3-20) into equation (3-18), 
with some algebra, the real part and imaginary part on each 
side of the equation must be equal separately. So we 
obtain a set of coupled differential equations for A's and 


B's: 



E_ ~ u t 

— <5iT> 


+ B n j(t) COS 


ll {A . (t) sin[ (n'-n) w t + 
nj nD AB 

t (n'-n) w AB t + ( j * — j ) “CD 11 J 


(j 



U n'n V j • j 


(3-21) 



■5 V « t 

sechT (-§^0 


ll (B , (t) sin [(n'-n)u) AB t + (j'-j)w CD t] 
nj J 

- A jftjcos [(n'-n)o3 AB t + (j’j)w CD t]} U n 


Ars (+*) and B rs ( + °°) are to be found, hence 

I a rs (+ 00 ) | 2 = |A rs (+“) | 2 + |B rg (+»)| 2 , 


the desired transition probability. 

In Chapter 2, we mentioned that in the work of ZRS 
(18), they treated coll inear collisions between two 


diatomic molecules with symmetric configuration only. 
Therefore, is equal to Yc D ** e,s 

y ab = y cd * Y 

The intermolecular potential function in equation (3-10), 

, V t Y AB xty CD Y) 

E 0 sech* (jj--) ex P ( L ) is ex P anded * n a Taylor series 

to the second order of X and Y; 

E 0 sech 2 (^) exp (J (x+Y) ] * E c sech 2 (^) {1 + J (X+Y) + \ (I) U+Y) 2 } 

(3-22) 

neglecting high order terms in X,Y. Equation (3-10), with 

interaction potential given by equation (3-22), can be 

solved analytically by applying Kerner (19) method. Our 

semi-classical approach differs from the method of 2RS in 

2 v o t 

that we do not expand the potential function E sech (-—) exp 

Y AB X+Y CD Y ° 

( jj— — ) into a Taylor series. We make a direct 

numerical integration of the coupled equations (3-21), 

which are equivalent to equation (3-10). It is appropriate 

to carry out classical calculations in which the 

approximate equation (3-8) is used, but the potential 

expansion (3-22) is not carried out. Numerical comparison 

between these two methods for N 2 -N 2 collision will be 

given in Chapter 4. 
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C. Quantum Mechanical Calculation 
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To clarify the presentation of the theory, we shall 
use a scaled Schrodinger equation. Define (13): 

1 

:d , 

1 ' 4 ( 3-23A) 


y* - x 


x* c x 


(3-23B) 


Inserting equations (3-23A) and (3-23B) into equation (3- 


5A) , it becomes: 
{ 7 h “cD<- ^ 


* 2 , 


V 

Tx 


2 i u k i 

4 At y rn K rn . a - 


* e 0 e *p 't: y cd<— ! t-' >- 

y CD K CD Y CD n 


ip ( x *, y *, R ) = Eip ( x *, y *, R ) 


* 2 > 

-his 2 

2y il 7 

y ab 

( y CD k CDj4, 

y AB k AB 

y cd 


( 3-24A) 


Dividing both sides by l/2h CD , equation (3-24) looks 
simpler. If we define: 


w = “AB r E* = 


u 


CD 


2 ha) CD 


r* = -L (!££!cd,4 5 


'CD 


h 


m r 


2 — 

r* - I v ( h - 1 

'• T In^TT-V > - L nu+rrr 'JTHc 


L ’CD'm^F cd 


2 — 
( h .4 
in — c — ) 


CD CD 


1 

m 


h 2 , y CD k CD « ? 1 

yW CD h 2 Y 2 d 


f y m p 2 

P m n 


m M 
c 


(m A +in B )n, D 


$ = 1m ( *CD y CD j 4 = ]Jc I 

Y CD k AB y AB m B y CD w’ 
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The new equation (3-24) is dimensionless, namely; 


{(- L- + y* 2 ) + (- ^7 + X* 2 ) - 1 4 2 + (-$*— ).XP(-L* 

3y 2 9x ' m 9j 7 hw CD 

-0x*)]) ^ (x*,y*,r*) ■ E* i|> (x*,y*,r*) 


( r *-y* 

(3/24B) 


Since the constant coefficient o can be absorbed 

l/ 2 h w CD 

into the argument of the exponential function exp (-L*(r*- 


y*-gx*))» and the operator 
transformation 


is invariant under the 


3r*‘ 


r* > r* + any constant, 

E o 

we can choose y/^ ' hco * 1 with no loss of generality. 

The notation x*, y* and r* refer to dimensionless 
variables, we now drop the for convenience. Hence the 
scaled Schrodinger equation is: 


{(- — 2 + y 2 ) + a; (- + x 2 ) 

3y* dx* 


E ip (x,y,r) 


+ exp I-L* (r-y-0x) ] }ip(x,y,r) 

m ar 

(3-25) 


The system is specified by the five dimensionless 

♦ 

parameters. They are co , m, $, L* and E*, E* is energy of 
the system in term of ground state energy of molecule CD. 
The dimensionless form of the unperturbated Hamiltonian H 0 
is: 

2 

H (x ,y) = (- — — + y 2 ) + w ( — — 3 - + x 2 ) 

0 dy 3x* 

with eigenfunctions ^j(x,y) and eigenvalues j , then 

H Q (x,y) <#> i j (x,y) * W ij (x,y) i = 0,1,2,... 

3 — 0 , 1 , 2 ,... 
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where <P ij(xx,y) * <t> i (y)^(x) 

Wij « ( 2i+l) + ( 2j+l) w 

<#>i j (x ,y ) is the product o£ the individual harmonic 
oscillator wavefunction which indicates that molecule AB 
with internal coordinate x is the vibrational state j, and 
molecule CD with internal coordinate y is in the state i. 
Let the system be in a particular initial state (n Q ,m 0 ). 
We can expand the total stationary scattering wavefunction 
^nomo< x ' y ' r *' i,e * the s °lution to equation (3-25) in terms 
of <|> nm (x,y) because they form a complete set. 


V, <x '*' r > 

o o 


N-l M-l 
= £ £ 
n=o m=o 


f 


nm,nomo 


(r) <l> n (y) < l» In (x) 


(3-26) 


Substituting equation (3-26) into equation (3-25) get: 

Jo Jo { ”nm f ni 0 ,n o in o (r) *nW V x > ~ = V x) !r2 f nm, no m 0 <r) 


m " •" dr 4 

(r) ^(y) ^(x)} 


+ exp [-L* (r-y-Bx) ] . n 

=E* * £ f nm'n m (r) *n (y) *m (x) <3-27) 

n— u m=u o o 

where we have used the relation 

H 0 (x,y) <(> i j(x,y) = W.j 4>ij(x,y) 

★ * 

When equation (3-27) is multiplied by <#> n t (y ) 4> m * on both 

sides and integrated over x and y , we have: 


V Jo { V*nm,„ 0 m 0 (r,< *n'n 1 '' x 'y» > “ | ^2 ^ !W x - y)> 


+ f n m ,nm (r) ‘Vm- (x '5 r) l ex P 1-1 <r-y-6x> J N' Im (x.y)» (3-28) 
o o 


* N-l M-l 

= E £ £ f„ m _ _ 

n=0 m=0 o o 
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+» 

+» 

f *n"W ^ n (y)<3y 


— 00 

— 00 

6,6, 
n’m m’m 

(3-29) 


<4> n> . (x,y) | exp (-L*(r-y-8x)] |<f> nm (x,y)> 


* r+°° * ,+» 

exp (-L r) <#» n . (y) exp (L y) <f> n (y) dy j ^ 4> m . (x) exp (L*6x) 4> m (x) dx 

it ( 3 - 30 ) 

Defining: V n , mf >nin (r) * m (x,y) |exp l-L* (r-y-J3x) J | ^(x^y) > 

and using equation (3-29) and (3-30), equation (3-28) 
becomes 

,2 N-l M-l 


" W n'm'*n'm’.n m_ (r) ’ f nV'Vo (r) + n-0 m«0 Vn ' m ' ' nm(r) fnm ' n 


dr 


n ’m* n'm’ *n 0 m 0 
«. * 

« m E f n i ro i ,n 0 mo(r) 

Rearranging this equation, we get 

a 2 N-l M-l 

2 Z V w(fB , « m (r) f 


_ni 
P o 


(r) 


7? n 0 m 0 (r) 


nm f n 0 m 0 


n=0 m=0 n m ' nm 
- m (E*-W ntln .) f n 'm‘,n 0 m 0 (r) 


(r) 


(3-31) 


Define 


kij = /m (E* - W7T) 


(3-32) 


= Sr tE-(2±+r)-(2ij+I)) 

N and M are the number of states of CD and AB included in 
the expansion. We introduce (9) 

i « n + m.N n * 0,1,2, ...N-l m = 0,1. .M-l 

j * n + m.N n « 0,1,2, ...N-l m = 0,1. .M-l 

k = n + m.N n = 0,1,2, ...N-l m = 0,1. .M-l 

to indicate the states of the system. For example, i = 
(n,m), j * (n,m) and k » (n,m) etc. By incorporating the 
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definition of k, equation (3-32), we obtain a system of 
coupled second order ordinary differential equations in 
matrix form which is equivalent to the Schrodinger equation 




i® 


ft 


I' 


(3-32). 


i- 2 ?<r) - <?-* 2 ) ? 

dr* 


(3-33) 


where (f(r)) i; . - <? - f nm,„*n>’ (r ’ 
(V(r))ij * ^ v ^ r ^i(n,m) j (n'm’) *" V nm,n'm , ^ r ^ 


l *■ . p 

% \ 4 b 


I ■ 

*_ *. 

Hi .. 

Li, =• 
r’ ' 

i j ' 

S ■ 
r " 

r r 


and ^ K ^ij * ^ i (n,m) j (n ’ih’ ) * ^nm^mn ' Aran ' 

In the asymptotic region where r is very large, V(r) tends 
to zero, so integrating equation (3-33) , we get 


Lim £(r) = e“ iKr G + e iKr $ 

r+oo 


(3-34) 


Equation (3-34) is the asymptotic form of F(r) at large r. 

-4 * 4 - 

In principle if G and J are determined, then the transition 
probability from state i * i(n 0 ,m 0 ) to state j * j(n,m) is 
given by: - k. 

(3-35) 


P ij = I ^ 1) jil j? 


'M 

P ft 

y 


M 


, f . 

where G _A is the inverse matrix of G. However, it is 
rather difficult to find matrices G and J m a 
straightforward manner. We go to the fqllowing alternative 
way: 

?(r) = i(r) 

(3-36) 


Set 


?(r) = l(r) 

a| I(r) * ($ (r) - £ 2 ) f(r) 
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Letting r 0 be some point in the asymptotic regime# the 
asymptotic form of F(r) may be also written as 

Lin i( r) - e ‘ l * (r ‘ r o ) 2 + e i * (r ' r ° ) 3 (3-37) 

and then# 

Lim S(r) * Lim || = -iKe" lK (r ~ r °* g + iKe lK(r ” r o* j. 

r-t-eo 

So# as the point r * r Q in the asymptotic region# it is 
obvious that: 

( 3-38A) 
(3-38B) 

These two relations will be used later. From equation (3- 
37) we have: 

Lin, f(r)8“ l .- i6r «> = e- iSr + e ife <e' iSr ° j2‘ l e- iKr °> , 


? (r 0 ) - G + J ♦ 1 
S (r Q ) ■ -iit.(j + iit.if 


X-A’Oe 


then the transition probabilities are: 


P . • B 

13 


(e -i«r° 32-1 e- i5r ° );jl | 2 


(3-39) 


Since kj is real for open channels# that is to say the 
incoming particle has sufficient energy to excite the bound 
particle to any of its lowest N eigenstates# matrix it is 
real too# and these are the only observed ones. In 

-V 

equation (3-39) since K is real# we end up with 



This result is exactly the same as the probabilities 
obtained based on the asymptotic form oof F(r) in equation 
(3-34). We can find G and J in terms of F(r 0 ) # and E(r 0 ) 

with no difficult# since G and J are related to F(r 0 )# 

^ -*• 
E(r Q ) by equation (3-38A) and (3-38B). Solving for G and 
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we obtain: 


<P 


ORIGINAL PACE ® 

IP „2Q^i QSM&ltV 


2G * F(r 0 ) + ilT^ro) 

^lphT 


2J 


P(r Q ) - iK" A E(r_) 


Defining 


S' - Re sf ♦ i.lm S* 


JG 


*■1 


where Re S is the real part of S and Im S is the imaginary 
part of S, (both are real) then 


i j<t- 1 1 - ■ m 

We must find Re S and Xm S in terms of F(r c )# E(r c ) and K. 
We know that (19) given three matrices and Y such that 

A - x + iy 

•+ * •¥ 

where X and Y are real, if 
then the inverse matrix of A is 

4*1 4 4 

A A - Z + iW. 

•V * 4 4 

In our case F(r 0 ), E(r c ) and X are all real, we may define 

4 4 4 

D - K. 1 E(r 0 ) 
so that equation (3-40) becomes: 

2G = P(r Q ) + iD 
2J - F(r 0 ), - iD 

Here we want to find the inverse of G, then set: 


4-2 4 2 4 2 

SI « (Re S) 4 (Xm S) 


X 

X\ 

- 1 l z 

wj 

u 

x] 

' 1-w 

z) 


(3-41) 


and solve for Z , W in terms of F(r 0 ) and D. Equation (3- 


f (r o> B 1 

^ -1 

1 z 

w 

-B F (r °>j 


1-* 


4 



4 - 


41) means that 


« \ 

/S 

>5' 


/l o' 

& 

. 

U 

f(r 0 )| 

-» 

*J 


i° x l 


Or equivalently F(r 0 )Z - DW - 1 

F(r c )W + DW » 0 

From the second equation of (3-42), 
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m, 


•t' 

w * » (POToJJ.jDZ 

Substituting W into the first equation of (3-42) , get: 

* , -I 4- 

(F(r 0 ) + D(F(r c ))D)z - 1 
hence Z * (F(r c ) ♦ D(F(r c ) > " 1 D),’ 1 

•nd W — (F(r 0 ))“ 1 D(f(r 0 ) + Bdtrj,)) 1 3) * 

* ' <4 

in turn, 3 * 2( (?(r Q )+6(f (r Q ) ) 3) ”^-i(f (r Q ) (r 0 )+B(3(r 0 ) )" 1 D) 

The derived result is clear now: 

JG“ 1 -(?(r 0 )-i5')((^(r 0 )^(f(r 0 )), 1 D) -i(t(r 0 )) 

+ •* + + - 1 + » 1 + 

D(F(r 0 )+D(F(r 0)) p) ) «Re S + ilm S (3-43) 


Since the real part and imaginary part on each side of 
equation (3-4 3) are equal to each other respectively, we 
have: 


Re S « (F(r )-D(F(r )[ 1 D) (F(r )+D(F(r ) ) " J Df 1 

- 2 + °+ + .1 % »i 0 

IM S - - ( 2D) (F(r )+D( F(r* ) ) D) (3-44) 

where D * K _1 E(r^). 

The transition probability from state i * (n ,m‘ ) to state 

o o 

j ■ (n,m) is: 



m D )+j (n,m) 


( (Re S)2. + 



where Re S end Im S are given by equation (3-44). This 
completes the basic principle in calculating transition 
probability for one-dimensional scattering problem within 
the quantum mechanical approach. Discussions of boundary 
conditions in integrating equation (3-36) will be made in 
the next Chapter. 

The original Schrodinger equation has rapidly 
oscillating wavelike solutions which are difficult to 
represent numerically. The integration of equation (3-33) 
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is numerically unstable, unless special algorithms are 
used. Secrest and Johnson, ( y In their exact quantum 
mechanical treatment of the one-dimensional scattering 
problem, convert the coupled differential equations into 
equivalent integral equations. The integral involved is 
then replaced by a quadrature sum. The resulting matrix 
equation is then solved indirectly by numerical method to 
obtain the transition probabilities. Chan et al. (24), 
propose a different numerical approach to this problem. It 
involves converting the set of coupled second-order 
equations for the translational wavefunctions into first- 
order equations in matrix form and then solving it by an 
expotential method developed by W. Magnus (25). The idea 
was first conceived by Light et al. (26). The method we 
just discussed for quantum mechanical calculation of 
transition probabilities is a direct integration of the 
state expanded Schrodinger equation. This treatment is 
similar to the method due to Riley and Kupermann (12). It 
is relatively simple and straightforward, but in our 
procedures, the virtual states are not included in the 
total wavef unction expansion. Roy G. Gordon (21) developed 
another method for integrating coupled differential 
equations arising in bound state and scattering problems in 
quantum mechanics. The wavefunctions are constructed in 
piecewise analytic form, to any prescribed accuracy. The 
chief advantage of this method is that it avoids searching 


for the correct initial derivatives of the wavefunction. 
It is claimed to be numerically very stable. 


Chapter 4 Numerical Results 
A. Semi-classical Results 

For the specific N^-N^ molecular collision, the two 

-14 

molecules are identical, then u) Q = = w CD = 4.45 x 10 

sec, y ab .* Y cd » and m A * nig ■ n» c = m D ■ 14.0 a.m.u. .. This 
implies that the matrix elements U n t n and V n , n are equal. The 
matrix elements U n , n are given in Table 4-1. 

As mentioned in Chapter 3-B, we may set: 

k ■ j 4 (n-1) J, j « 1,2,3,... 

n K 1,2,3,... 

where J is an integer which is the number of states of 

molecules CD and AB included in the expansion of the total 

wavefunction i p . The integer k is used to represent the 

state (j,n) xvhich means that molecule CD is in the state j 

and molecule AB is in the state n. For example, if we 

choose J * 4, there are 4x4 ■ 16 states involved in the 

expansion of total wavefunction in terms of the 

individual harmonic oscillator wavefunctions. In other 

Words, there are 16x2 s 32 coupled first order differential 

equations to be solved in equation (3-21). (for J greater 

than 4, the extension is straightforward). In general, 

J-N, let K*k4N.N, where k=l,2,3,...( N.N ). In this way, A nj 

and can be designated as: 

Y(k) * A . k = 1,2,... (N.N) 

1*3 

Y( K) « B . 

1*3 


K - (N.N)4l,(N.N)42,. .2(N.N) 


Y is then a vector of length 2(N.N). This is the suitable 
form for doing numerical integration of equation (3-21). 
In our computer program, the IBM IMSL ROUTINE JDGEAR is 
called. On input, Y(l), Y(2),....Y(2N**n supply initial 

values which are initial conditions for the tv stem. One of 
the arguments in the subroutine DGEAR, TOL, must be chosen 
suitably. Otherwise the computer time is unecessarily 
long. This parameter TOL, is an estimate of the local 
truncation error. In a series test calculations, we choose 
N = ll, Vo * 8 km/sec and initial state ■ (1.2), for three 
different values of TOL, 10”^, 10“®, and 1(T 9 . We obtain 
the data as shown in Table 4-2. We then choose TOL = 10 . 

The initial value of the step size H, is chosen small 
enough at the beginning of integration so that it can pass 
the error test (based on TOL). In the subsequent 

procedures H is adjusted by the routine itself, but 
changing in the step size always satisfies the error test. 
The number of states used in the total wavefunction 
expansion, N*N plays a very important role in integration 
of equation (3-21). 

In principle, we have to increse N until the final 
transition probabilities converge to values independent of 
N. Table 4-3 to Table 4-5 show the transition probability 
as a function of N for initial state (1,2) at low, medium, 
and high initial relative velocity; i.e. v Q * 3 Km/sec, 6 
Km/sec, and 9 Km/sec respectively. From these tables, it 
is obvious that for high value of velocity v Q , we need more 


states in the expansion of total wavefunction \p 
Generally speaking, for v q less than 6 Km/sec, N ■ 7 i.e. 
7x7 ■ 49 states expansion is good enough for initial states 
(1,1), (1,2), (2,2), (3,1), and (3,2)* For * 7 Km/sec, 
N should be no less than 9f and for v Q ■ 8 Km/sec, N should 
be no less than 11. For v q = 9 Km/sec, N must be larger 
than 12. We also find that the value of N depends on the 
initial state. For example, for initial state (4.1) at 
velocity 6 Kra/sec, only N * 9, i.e. 81 states expansion 
makes the transition probability converge. The integration 
limits are adjusted until the constraint equation (4-1) is 
satisfied: (for suitable N) 


^ ^initial state *► final state <6 (4-1) 

final state 


where 6 is an arbitrary small number, we choose 6=10 ” 4 

here. The integration limits depend on the initial 

relative velocity v , e.g. for v * 3 Km/sec, the lower 

o o 

limit T = -1.6xl0 -13 and the upper limit TEND = 1.6xl0 - ^ 3 ; 

for v =6 Km/sec, T = -l.OxlO - * 3 , and TEND * 1.0x10”^; 
o 

for v q = 9 Km/sec, T = -5.0x10 “ 14 ^ and TEfJD _ s.oxlO"" 14 . 
Condition (4-1) serves as a useful criterion on numerical 

t ♦ , 

calculations. 

The numerical results of transition probabilities for 

different initial and final states as a function of v are 

o 

obtained by the semi -classical method and shown in Tables 


4-6 to 4-10. Figure 4-1 through Figure 4-5 plot the 

transition probabilities as a function of v D for five 

initial states (1,1)* (1,2), (2,2), (3.1) and (3,2). A 

scaling relationship can be very useful for both the 

theoretical and experimental analysis of molecular 

scattering problem. Kith this relationship, it is easier 

to write the direct Monte Carlo computation program and 

save computer storage space. For a systematic study of the 

scaling relationship, we need more data. It is too 

expensive to be done at this time. In Figure 4-6a and 4- 

6b, we plot only the scaling relationship for V-T processes 

(l,i) (l,i+l) at different v , Since the collision is 

o 

symmetric, there is nothing new in the results by changing 
the initial state (i,j) to (j,i). We examine Figure 4-1 
through Figure 4-5 and find that at low energies the 
probability of transferring a given number of quanta by a 
V-V process is much greater than the probability of 
converting them by a V-T process into translational energy. 
For V-T process, the probability increases rapidly with 
increasing collision energies in the low energy regime. 
However, the probability of V-V transfer rises less sharply 
with increasing collision energy. For V-V transitions 
involving two quanta jumps such as (3,1) (1,3) and (3,2) 

(1,4), the transition probability is less than that of V-V 
process (1,2) (2,1), which involve only one quantum jump. 

Generally, at low energies, the transition probabilities 
are very small and multiple quantum transitions are assumed 
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primarily due to stepwise transitions via single collision 
j ■+• j+1 ... -*■ k-1 4- k. At high collision energies the 

dilrect transition j 4- k has significant contribution to the 
transition probability of multiple quantum jump. For V-V-T 
transfer to an adjacent level, processes involving transfer 
of a single quantum (such as (2,1) 4- (3,1) and (2,1) 

(2.1) ) are much more probable than processes of several 
quanta such as (1,2) •+• (3,1). Likewise, transitions (3,2) 

(4.2) , (3,2) 4- (2,2) and (3,2) (3,1) are much more 

probable than the transition (3,2) -► (2,1). In Figure 4- 

6a and 4-6b we notice that the general trend of the scaling 
relationship for transitions 

(l,i) _> ( 1 ,i+l) , 

seems to be a weak v -dependent function. We need more 

o 

data for further analysis. 

A useful check on numerical results is provided by 

time-reversal invariance (which leads to the principle of 

detailed balance). Stated classically, the principle 

implies that a system executes its motion in reverse if 

time is allowed to run backward. In quantum scattering 

processes this means that P ■ P , i.e., the probability 

ij 31 

of a transition for state i to state j is equal to that for 
transition for state j to i. For example, check table 4-8 

and table 4-9, we have P (2,2)->(3,1) " 0.845x10 3 , ^^, 1 ) 

1 > (2 2) * 0.843x10'’ 3 , this gives 


0.237%, at 


P (3,l) + (2,2) “ P (2, 2)^(3, 1) 
p (3,l)-*-(2,2) 

v Q ® 4 Km/sec. 

At v c = 6 Km/sec, both P (3#1) + (2 ,2) and P (2,2)-M3,l) are e< 3 ual 
to 0.121. The principle of time reversal invariance is satisfied 
quite well . 


B. Quantum Mechanical Results and Comparison 
Referring to Chapter 3-C, it is clear that the 
numerical procedures for calculating transition probability 
by the quantum mechanical method are as follows: 

(1) Integrate equation (3-36) and solve for 
F(r c ) and E(r Q ). 

(2) Form D and the expression (F(r )+D(F(r )) 

o o 

B)- 1 . 

(3) Construct Re S and In S. k 

(4) P ±i - ((Re t) 2 + dm S)2 ) 

o o J J 1 1 

For N*-N* collisions the parameters of the system are * 

0.113 (corresponding to L * 0.2 A), w = 1.0, $ * 1.0, and m 

* 0.5. The total energy E can be assigned a suitable value 

which corresponds to some value of v 0> Having all these 

parameters, the IBM IMSL routine DGEAR is called to 

integrate equuation (3-36) and find F(r ), E(r Q ). There 

are four factors in this problem that can affect the 

numerical integration. 

(1) Integration error. 

(2) Number of states retained in the state 
expansions. 

(3) Starting point of integration r . 

s 

(4) End point of integration r Q . 

The local trunction error is conntrollsd by TOL, which is 
one of the arguments of the subroutine DGEAR. We choose 
TOL = 1.0x10 here. The starting point is chosen as the 
point r * r g at which the largest diagonal element of tyr Q ) 


is equal to twice of the total energy there. The starting 

point is just beyond the classical turning point and in the 

classical forbidden region. Now, it is appropriate to 

discuss the initial conditions for this system. We set N * 

M * 2. so that there are four states involved in the total 

wavefunction expansion (for high energy collisions we need 

larger N and M to get more accurate results). The initial 

states of the molecule AB and CD are n_ and m definitely 

o o 

at the beginning, where n ■= 1.2; m * 1.2. Therefore the 

O Q 

initial value of the matrix F(r) is a unit matrix: 



1.0 0 0 

0 1.0 0 

0 0 1.0 


0 

0 

0 


o 0 0 1.0 


Since the point r * r is in the classical forbidden 

s 

region, the diagonal element of V(r s ) is much larger than 
the element of K. equation (3-33) becomes: 


dr 2 s 


The diagonal element of F. f. satisfies the equation 

" ar s. f ( r ) as r-*— 00 


d 2f _ 
= me 


dr 


/me“ arsr 

The asymptotic solution is then Lim f(r) = e . Recall that 

r+o° 


this gives the initial value of matrix 1 at 
starting point r as: 


_ dF 
E “ dr ' 
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where g m ~\J me _1 s. The stopping point r Q is chosen as the 

point where the diagonal element of V(r ) are less than SWO. 

o 

of the total energy. In principle, we have to increase the 
total number of states N,M, until the probabilities do not 
change significantly. We keep N=2, and M*2 in this work 
and calculate trnsition probabilities among states (1,1), 

(1,2) and (2,2). Obviously, this four-state expansion is 
good for low energy collisions only. Table 4-11 and Table 
4-12 display the quantum transition probabilities as a 
function of V for initial states (2,1) and (1,1). In 


o 

Table 4-13 through Table 4-16, we list the probabilities 
for transitions (1,2) -► (1,1), (1,2) -► (2,2), (1,2) •+■ 

(2,1) and (1,1) -*-(1,2) by the four different methods. 
Since the computer expense is prohibitively large for fully 
quantum mechanical method, we do not have enough data for 
plotting purpose. Here, we show that the method just 
explored does work. The plots of these tables are thus 
given by Figure 4-7, Figure 4-8, Figure 4-9 and Figure 4-10 
respectively. 

We check these Figures (4-7) through (4-10) and find 
that for the three V-T transitions the probability 
obtained by the semi-classical method is almost one order 
of magnitude smaller than that obtained from ZRS analytic 
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method. For V-l process (1,2) -♦> (2,1), the semi-classical 
and ZRS results are very close to each other, however, 
the ZRS results are always slightly larger than the semi- 
classical results. The SSH theory is only good for low 
energy collisions, if the energy is too high the 
probability is greater than unity. This theory breaks down 
there. Since we are interested in high energy collision 
processes of two molecules. We concentrate on the semi- 
classical method. We believe the semi-classical treatment 
can supply a reasonable estimate in calculating transition 
probabilities. This is very helpful because the semi- 
classical method can save much computer time and the 
numerical algorithm is relatively simple. 
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Chapter 5 Discussions 

In this final chapter, we discuss some important 
problems requiring further study for vibrational energy 
transfer. 

A. Three-Dimensional Collisions 

One of the assumptions which we have made in the 
collinear molecular collision model is that the target 
molecule is struck in the direction of its axis. To avoid 
this assumption in the collinear treatment, we have to 
average over the relative orientation of the molecule at 
the proper stage of calculations. However, the period of 
rotation is usually comparable with the duration of the 
collision, there is no simple way to take the average. A 
constant steric factor is generally used. 

Since the rotational energy spacing is much smaller 
than the vibrational spacing, appreciable rotational 
scattering occurs over a range of molecule-molecule 
separations that is considerably longer than that for which 
vibrational transitions are important. The coupling 
between rotational and translation is usually strong too, 
so that the rotational state generally changes before the 
vibrational transition occurs. When a vibrational 
transition takes place the corresponding energy change will 
appear in either translational motion, or rotational 
motion of molecules, or both. It is obvious that if we 
calculate the vibrational transition probabilities, 
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effects of rotational motion have to be considered. In the 
collinear treatment however, we have assumed that the 
simultaneous rotational and vibrational transitions are not 
important and the impact parameter is zero. The realistic 
three-dimensional analyses that take rotational transitions 
into account should include the- correction to the 
vibrational transition probability that results from the 
finite size of the rotational energy spacing in future 
work. Also, the incident particle is described by a plane 
wave which contains the partial waves of different orbital 
angular momentum (th£ one-dimensional model corresponding 
to an s-wave scattering problem). Usually, many partial 
waves have to be considered and this makes the problem very 
difficult. 

B. Effect of Anharmonicity 

It has been found by experience that the potential 
energy function of actual diatomic molecules can be 
represented quite accurately by a simple analytical 
function called Morse potential, which contains three 
adjustable parameters. If Morse potentials are used to 
describe the intramolecular forces, the diagonal matrix 
elements of the interaction potential which enter into the 
quantum theory of vibrational energy transfer are 
approximately but not identically equal. In the 
calculation given by F.H. Mies, (2?) the consideration was 
restricted to the head-on collision between a structless 
incident particle and a diatomic molecule. The transition 
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probability is found to decrease markedly when the ratio 

of the diagonal elements of the initial and final 

oscillator states is allowed to deviate even slightly from 

one* The deviation in turn? increases with the 

enharmonic! ty of the molecular vibrations, and an 

-1 -2 

enharmonic correction factor of the order of 10 to 10 
should be applieed to the generally used probability 
expression for atom-molecule collision. There must exist a 
correction factor of this kind for molecule-molecule 
collision. 

C. Interaction Potential 

Choice of a potential function to be used in 
calculating the transition probability is a very important 
task since it affects the results considerably. In the 
theory of inelastic molecular collisions, the scattering 
potential to be adopted should be simple enough to make the 
calculations feasible as long as the essential features of 
the physics of collision is not lost. This requirement is 
relaxed if we de^4, tfith numerical calculations. The chosen 
interaction p f -% ml ! *1 for some pair of molecules must be 
relatively accurate and can be used to represent the real 
situation. If the interraolecular interaction is strongly 
orientation dependent, as in the polar gas, the molecules 
may take a particular orientation during the encounter. 
For this problem of preferential orientation, a somewhat 
different treatment is required. 


D. Exact Classical Trajectory 

In our semi -classical appr*!>it the classical 
equations are first solved to obtain th$ relative motion of 
the molecules as a function of fcfc© time* The time- 
dependent Schrodinger equation for fcfo© Internal motion 
under the external perturbation is then solved to obtain 
the probabilities of various transitions. However, the 
occurrence of inelastic processes' are taken into 
account in solving the classical equation WblJ>n in that 
the effective intermolecular potential and the effective 
translational energy depend on the internal state. If the 
incident energy is much greater than the internal energy, 
the influence of inelastic process on the relative motion 
is unimportant. It is a good approximation to ignore the 
internal state in calculating classical trajectory. For 
more rigorous calculations, an exact classical trajectory 
must be found in which the energy conservation law is 
satisfied. For high energy collisions, the semi-classical 
treatment is, however, a fairly good approximation. It 
requires less computational effort and saves much computer 
time. 


Appendix 1 Exponential Interaction Potential 
A conventional representation of, the intermolecular 
potential energy curve is given by the Lennard-Jones 12-6 
power law (26); 

_ 12 _ 6 

V (r) = 4e ((§) - <~) ) (Al-l) 

where* V(r) is the potential energy at separation r, and r 
is the distance between atom B and C. This is shown 
graphically in Figure Al-1. 


is the depth of the potential well at intermolecular 

_ 12 

distance r . where the repulsive force ( — ) takes over 

6 r 

the long range attractive force ( £ ) # and V(r ) is the 
* r m 

minimum of the potential function V(r). c is the 
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separation at zero energy, when V(r) « 0, sometimes loosely 
called the "collision diameter”. The exponential function 
V INT (r) • constant-, - e (Al-2) 

must be fitted to the Lennard -Jones potential V(r), 
equation (Al-1). Here, the choice is made that the 
magnitudes and slopes of the potentials are set * -ual at r 
* r c . r c is the minimum value of r. These two potentials 
are illustrated in Figure Al-2. 


Figure Al-2. The exponential potential v INT ^ r ) fitted to 
the Lennard Jones potential V(r). The magnitudes and 
slopes of the two potentials are set equal to each other at 
the classical turning point r * r c . 
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Appendix 2 The Choice of Initial Time Reference 

Coordinate in Quantum Scattering Process 

Consider the general scattering in one-dimensional 

spacer A flux of incoming particles with mean momentum p 

o 

are incident from left and scattered by an arbitrary 
potential distribution V(x) as. shown in Figure A2-1* where 
V(x) is finite and V(x) 0 «s x + 


Figure A2-1. Particles scattered by an 
arbitrary potential. 

For large and negative x, the wave packet with mean 

momentum p Q can be superposed as: 

+“ - . 2 
^ (x,t) = f dp exp (-a(p-p 0 P) exp exp (-i 


(A2-.1) 


+ 00 


+/ dpR(p) exp (-a(p-p o Pexp (- exp (-i ^ t) 


where R(p) is the reflection coefficient which is a 

1 

constant over a region Ap~ For large and positive 

x r the transmitted wave packet is: 
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+ 0 ° 2 
'P (x,t) = / dpT(p)exp(-a(p-p 0 ) 2 )exp(i|2L)exp(-i (A2-2) 


where T(p) is the transmission coefficient which is 

1 , , 
constant over a region Ap~^ . Since for large |x| 

and 1 1| , the term exp (i (Eg - ^|)) in equation 

(A2-1) and ( A 2 — 2 ) is a very rapidly varying function of 

momentum p, the integrals are essentially zero unless p, x, 

and t are such that the stationary phase conditions are 

satisfied: 



(A2-3) 


Prom equation (A2-3) we get: 


X » 


m 


(A2-4) 


where is the classical velocity. Equation (A2-4) 

gives the result that t<<0, if x<<0. Let's check the 

second term in the right hand side of equation (A2-1). ^ 

Since R(p) is approximately a constant within a width Ap 

centered at p « p' , then, 

o 

+ 00 2 

/ dpR(p)exp(-(p-p 0 ) 2 )exp(-i H)exp(-i 
»00 


R(P 0 ) / dpexp(-(p-p 0 ) 2 )exp(-i(E| + 


** 

Stationary phase conditions require that. 

P * p o 


0 


* %. 


and 



(A2-5) 


Equation (A2-5) implies that x « Pc>t 

m 

reflection occurs only when t>0 because 


, this means that 
the reflected wave 


exists only at x — > _ ,» 

• 

just made, we conclude that the 
pootential at x « 0 and t * 0, 
of the system are described 
conditions are the states at t - 


Combining the discussions 
incident particles hit the 
and the initial conditions 
at t > ““ r the final 

— > +®a 
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APPENDIX C 


COMPUTER CODE INTERNAL 


PILE: GKBINT AUG82 


PRINCETON UNIVERSITY TIME-SHARING SYSTEM 


// JOB GKB 0367425. GKBSPACE N=WATRUN2 REG=560 T=1.0 P=100 C=0 
// EXEC WATFIV 

//WATFIV. FT09F001 DD DISP=OLD, DSN=U. GKBSPACE. KM1 15 
//WATFIV. SYS IN DD DATA 

*JOB BIENKOWSKI,T-59,P=1 00 , NOLIST 

C HAIN PROGRAM FOR HONTE CARLO 3-D ENTRANCE PROBLEM CALCULATIONS 

C OBJECTIVE OF THIS MAIN PROGRAM IS TO SET THE DIMENSIONS 

C HAIN RUNNING PROGRAM IS *** RUN *** 

C 

C FOLLOWING TWO CARDS HAVE TO BE ELIMINATED FOR NON IBM MACHINES 

C************* ******************** *********** *************************** 

INTEGER*2 LB, NBN, NBN, NB, NBT 
INTEGER*2 LH, LCOL 

C* ****** **************************************************************** 

C 

C THE NEXT CARD IS ASSOCIATED WITH PRINCETON RANDOM NUMBER GENERATOR 

C* ************************************************** ******************** 

COMMON/RANCOM/NRAN (4) 

C* **************************************************************** ****** 

C 

C THE FOLLOWING DIMENSION STATEMENTS SET THE MAJOR ARRAY DIMENSIONS 

C AND MUST BE CONSISTENT WITH THE FOLLOWING DATA CARD 


NSP=NUHBER OF SPECIES - EXAMPLE BELOW NSP=1 
NJV=NUHBER OF SUBDIVISIONS OF INPUT DISTRIBUTION FUNCTION 
EXAMPLE BELOW NJV=22 

NHC=NUHBER OF FINAL CELLS - EXAMPLE BELOW NMC=150 
NHP-HAX NUMBER OP MOLECULES OF EACH SPECIES ALLOWED IN PROGRAM. 
IF EXCEEDED, PROGRAM EITHER FAILS OR RESTARTS AT BEGINNING 
WITH NUMBER REDUCED BY 10% - EXAMPLE BELOW NMP=5000 

NPB=MAXIMUH NUMBER IN EACH CELL - EXAMPLE NPB=150 


DIMENSION DBA (1,150) ,NB(1,150) ,NBT (1,150) 

DIMENSION THP(1, 150) ,TMPA ( 1 , 1 50) , XV ( 1, 1 50) , X VA (1 , 1 50) 
DIMENSION YV(1, 150) ,YVA (1, 150) ,ZY(1, 150) ,ZVA (1,150), DB ( 1,150) 
DIMENSION TRP ( 1 , 150) ,TRPA(1,150) ,NBM(1,150) 

DIMENSION NBN (150) ,T(1, 1, 150) 

DIMENSION LB (500 0) ,LM( 1,5000) ,ER (1,5000) 

DIMENSION PAH (1,50 00) , PA V (1,5000) , PAW (1,5000) 

DIMENSION PAX (1,5000) , PAY (1,5000) , PA Z ( 1, 5000) , LCOL (1 ,5000) 
DIMENSION FNB ( 150) ,XC(150) ,YC(150) ,ZC(150) 

DIMENSION VEL (22,4 , 1) ,PFV (22,4,1) 

DATA NSP/1/, NJV/22/, NMC/ 150/, NHP/5000/, NPB/1 50/ 


2 FORMAT (/17X,* NORMAL TERMINATION OP THE PROGRAM *) 
NAHELIST/DIM/NSP, NJV,NMC, NMP, NPB, NRAN 

INITIALIZATION OF RANDOM NUMBER GENERATOR - PRINCETON ROUTINE 


NRAN(1)=0 
NRAN (2) =0 
NRAN (3) =0 
NRAN (4) =0 
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*fLE: GKBINT AUG82 


PRINCETON UNIVERSITY TIRE-SHARING SYSTEM 


vr 


PRINTOUT OF HAJOR ARRAY DIHENSIONS USED ABOVE 
WRITE (6, DIM) 
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CALL OF MAIN 0P;’R/T1NG PROGRAM WHICH REQUIRES INPUTS; 

CCONTBL, STINES, At\LOREF,SMOLEC,6SHAPES,GGEON,GINCUPL,SINOUT 
THESE INPUTS APfe ALL CURRENTLY IN THE NAMELIST FORMAT 
AND MAY HAVE TO BE CHANGED IF THAT CONVENTION IS NOT AVAILABLE 
BRIEF DESCRIPTION OF THE PARAMETERS POLLOWS 
:$CCONTRL - ONE OCCURRENCE (NEW OR RESTART) 

DEFAULT DEFINITION OR EXPLANATION 
$ BLANKS ANY ALPHANUMERIC NAME UP TO 8 CHARACTERS 
2 4 BLNKS ANY ALPHANUMERIC TITLE UP TO 24 CHARACTERS 
.001 ACCURACY IN INTEGRATION PROCEDURES 

1 NUMBER OF ADDITIONAL COPIES OF OUTPUT 

.TRUE. IF TRUE WILL CAUSE SYSTEM DUMP FOR ANY OF 12 
PROGRAMMER DESIGNED ERROR HALTS. 

.FALSE. IF TRUE WILL PRINT MESSAGE WHEN CELL POP. EXCEEDS HNB 
•FALSE. IF TRUE WILL PRINT CPU TIME AROUND EACH PART OP LOOP 

•TRUE. IF TRUE WILL PRINT CPU TIME REMAINING AT END OF LOOP 

.TRUE. IF TRUE - NEW RUN - IF FALSE - RESTART OP BUN 

•FALSE. IF TRUE - SNAPSHOT SAVED ON TAPE(9) FOR RESTART 

.FALSE. IF TRUE PROGRAM WILL AUTOMATICALLY RESTART WITH 90% 

OF TOTAL IF TOTAL CELL POPULATION EXCEEDS MNM 


PARAMETER 
I NAME 
! TITLE 
: PERCNT 
* ICOPY 
DUMP 

: DEBUG (1) 

' DEBUG (2) 

' DEBUG (3) 

’ NEW 
3 SAVE 
’ REDO 


i 6TIHES - 
PARAMETER 



6FLOREP - 
PARAMETER 
P LLN 
:: MNM 

r MNB 
I % MSP 
| MET 

t 

S U 

z ANGLE 
I RNU 
• B RMA 
!f TF 
, DENF 

It 

] 6M0LEC - 
i PARAMETER 
# TRF 
DIR 
ETA 
PHI 


ONE OCCURRENCE (NEW OR RESTART) 

DEFAULT DEFINITION OR EXPLANATION 

- REAL NUMBER - FRACTION OF MEAN FREE TIME PER CYCLE 

- INTEGER - NUMBER OP CYCLES PER SAMPLE 

- INTEGER - NUMBER OP CYCLES BETWEEN PRINTOUTS 

- - - INTEGER - ESTIMATE OF NUMBER OF CYCLES TO STEADY STATE 

INTEGER - TOTAL NUMBER OP CYCLES TO END OF RUN - 

WILL TERMINATE SOONER IF CPU TIME IS TO BE EXCCEDED 

ONE OCCURRENCE (NEW RUN ONLY) 

DEFAULT DEFINITION 

INITIAL NUMBER OF MOLECULES LLN<HNM< OR = NNP 

- - - MAXIMUM NUMBER OF MOLECULES PER SPECIES 

- MAXIMUM NUMBER PER CELL - DIAGNOSTIC ONLY 

- NUMBER OF MOLECULAR SPECIES (MAX. IS 3) 

0 IF 0 - DATA IS IN SI (METRIC) UNITS 

IF>0 - DATA IS IN ENGLISH UNITS 

- - - FLOW VELOCITY (M/SEC) OR (FT/SEC) 

- ANGLE OP ATTACK (DEGREES) 

0.0 ARRAY GIVING MOLE FRACTIONS OF SPECIES IN 

0.0 ARRAY GIVING MOLECULAR WEIGHTS OF SPECIES 

- FREE STREAM TEMPERATURE (K OR R) 

- FREE STREAM NUMBER DENSITY (NUM/M**3 OR NUK/FT**3) 


FREE STREAM 
ABOVE 


ONE OCCURRENCE (NEW RUN ONLY) 

DEFAULT DEFINITION 

- - - REFERENCE TEMPERATURE FOR MOLECULAR DATA 

0.0 CROSS-SECTIONS AT REFERENCE TEMP. (MSPXHSP) 

0.0 PARAMETERS IN DIFFUSION AND VISCOSITY LAW (MSPXHSP) 

0.0 PARAMETERS FOR ROTATIONAL RELAXATION (MSPXHSP) 


f? 


C-2 


ILE: GKBINT AOG02 


A 


PRINCETON UNIVERSITY TIME-SHARING SYSTEM 


CiJX 

ACR 

GSHAPES - 
PARAMETER 


0.0 

.001 


ROTATIONAL DEGREE OF FREEDOM PARA METER (NROI/2 - If 
ACCORACY IN MOLECULAR COLLISION CALCULATIONS 


NDfl OCCURRENCES WHERE ND=NUHBER OP BODY SEGMENTS (NEi RON) 
DEFAULT DEFINITION 
FIRST OCCURRENCE 

BODY (I) I >3 - r NEED NOT BE SPECIFIED 

BODY ( 1) START OF BODY (XSTAHT) IN ARBITRARY COORDINATE 

BODY (2) 0.0 TEMPERATURE AT FRONT OF TUBE IN K OR fi 

BODY (3) 0.0 DIAMETER OF TUBE IN METERS OR FT. 

SUBSEQUENT OCCURRENCES (ND) 

BODY ( 1) I COORDINATE FROM FRONT OF BODY OF THE DOWNSTREAM 

EDGE OF THE CURRENT BODY SEGMENT 

BODY (2) - ~ - TEMPERATURE AT THE BACK OF THIS BODY SEGMENT 

BODY (3) SWITCH - IP NOT 0.0 THIS IS THE LAST SHAPES CARD 

BODY (I) I EFEN ALPHA - ENERGY ACCOMODATION COEFFICIENT POB SPECIES 

BODY (J) J ODD SIGMA - TANGENTIAL ACCQHODATIOM COEFF. FOR SPECIES 

I AND -J < (4 + 2*MSP) 

6GEOM - ONE OCCURRENCE (NEW RON ONLY) 

PARAMETER DEFAULT DEFINITION 

NWEDG INTEGER GIVING THE HUMBER OF SEDGES WITHIN 180 DEGREES 

NW NUMBER OF FIRST LEVEL CELLS IN X DIRECTION 

NH NUMBER OP FIRST LEVEL CELLS IN RADIAL DIRECTION 


GINCOPL - 
PARAMETER 
FLUX I N 

FCOL 

RHP 

<JV 


KMX 


ONE OCCURRENCE (NEW RUN ONLY) - INPUT DISTRIBUTION 
DEFAULT DEFINITION 

1.0 FLUX INPUT IN TERMS OF FREE STREAM FLUX - ONE 

NUMBER FOR EACH SPECIES 

0.0 FRACTION OF ARRIVING MOLECLUES THAT HAVE 

PREVIOUSLY COLLIDED 

RATIO OF "CAVITY" PRESSURE TO THE EFFECTIVE 

PRESSURE OF THE INCOMING STREAM AT ENTRANCE 

- THE NUMBER OF VELOCITY INTERVALS FOR DISTRIBUTION 

FUNCTION INFORMATION 

4 NUMBER OP COMPONENTS OF DISTRIBUTION 

KHX=3 IF NO ROTATIONAL ENERGY (CBI--1) 

KMX-4 IP ROTATIONAL ENERGY IS INCLUDED (CHI>-1) 


5INOUT - MSP*KHX OCCURRENCES 
PARAMETER DEFAULT DEFINITION 


VARG (J) 


CURV (J) 


NT DESIGNATES SPECIES 

K=1 DESIGNATES NORMAL VELOCITY 

K=2 DESIGNATES TANGENTIAL VELOCITY IN FLOW DIRECTION 

K-3 DESIGNATES TRANSVERSE TANGENTIAL VELOCITY 

K=4 DESIGNATES ROTATIONAL ENERGY 

VELOCITY BOUNDARIES FOR DISTRIBUTION FUNCTION 
1 <J<JV VELOCITY BOUNDARIES 

PROBABILITY OF VELOCITY (OR ROTATIONAL ENERGY) 
INCIDENT AT ENTRANCE BEING BELOW VARG(J) 


A SAMPLE INPUT DECK IS GIVEN BELOW: 


C-3 


ORIGINAL PAGE \B 
OF POOR QUALITY 


‘&E: GKBINT AUG82 A 


PRINCETON UNIVERSITY TIME-SHARING SYSTEM 


? '^SIeMS:g?°S:r^fSS?s?^B^2s!!iIi:',g , ^SD''* 7 ‘‘ 85 * 9 * AMG, -*- 2e -' ,,H0 - r "** 0 *' 

55is.n5S^8;?KS:?r»sn5 w ni; M ' , ^ o *°' , ^ , *'» c, -- M, ‘-» 


SHAPES BODY=. 0025, 555., 0.0, 2*1.0 SEND 
OSHAPES BODY*. 0050,345. ,0.0, 2*1.0 SEND 
^SHAPES BODY* .0100, 300. ,0.0, 2*1.0 SEND 
GSHAPES BODY*. 0200,300. ,0.0, 2*1.0 BEND 
•GSHAPES BODY*.02Q0, 300. ,0.0, 2*1.0 BEND 
GSHAPES BODY*. 0400,300. ,0.0, 2*1.0 BEND 
GSHAPES BODY*. 0500, 300. ,0.0, 2*1.0 BEND 
GSHAPES BODY*. 0600, 300. ,0. 0, 2*1 . 0 BEND 
^SHAPES BODY*. 0700, 300. ,0.0, 2*1.0 BEND 
GSHAPES BODY*. 0800, 300. ,0.0, 2*1.0 BEND 
GSHAPES BODY*. 0870, 300. ,1.0, 2*1.0 BEND 
GGEOH NWEDG=2,NW=20,NH=3, BEND 

SINCUPL PLtIXIN=2.1429,PCOL=1.0,RHP*0.0 l 
tlNClOI v #BG=°., 1 .,2., 3 .,< l . ( 5.,6.,7.,e. 1 
19.,20.,21.,CDRV=0.0.. 070.. 17 0„2H9. • 


ORlCim PtM ESI 

OF- pw' Q'iAUYY 


7. ,18. 


.Hid, 

6IN0UT 

A A 


'* v •on,. yjz 0 . 962, .984, .995,. 
blNOOT VARG=-20.,-19.,-17.,-1 
11 • , 13 . , 15. , 17. ,19* ,CORV=4*0 
i. .871, .93 2, .962, .9 84, .9 95,. 

CALL RON (NSP.NJV.NBC.NBP 


^ N*J V , N HC (.NHP,N pB ,DBA,NB,N BT , TN P, TMPA,XV, XV A, YV , 

2PAZ,LCOL,TRP,TBPA, ER,LB, NBH, NBN, VEL,PPV) 

WRITE (6, 2) 

STOP 

END 


RON (NSP, NJV , NMC, NMP, NPB, DBA, NB, NBT, THP, THPA , X V, XVA. 

J.II' Y IjD Z I*o![ A !, T,DB ' PNB ' XC ' irCp ZC,LM,PAO,PAV,PAN,PAX, PAY, PA Z, 
2LCOL,TRP,TRPA,ER,LB, NBH, NBN, VEL,PFV) 

MAIN RUNNING PROGRAM ** RUN *** CALLS ALL OTHER SUROUTINES 


*M***#M ************** ********** 


************************************* 


INTEGER*2 LM, LCOL 
INTEGER* 2 LB, NBM, N BN, NB,NBT 
INTEGER PRT, SA (1P,TST, TLIM, TI BE, Q 
LOGICAL DUMP, DEBUG (3) , SAVE, NEH, REDO 
REAL INTGRL,LAH,HU,NU, JAY, KAY 

£5!!f!! SI0N BTA ^ rCl #C2 ( 3 ) # C3 f 3 ) * G7 ( 3) #C8 (3) ,DFA (3) , PL (3) 
DIMENSION PDN(3),HTI(3),HTR(3),JNT(3),KNM(3),NH(3),SR(3 

DIMENSION NAME (2) , “’ITLE (6) 

DIMENSION BNU (3) , RHA (3) ,HTH (3) , CHI(3) , DIF (3, 3) .DAHI3 31 pht/ 3 li 
DIHEN5ION ETA (3,3) . O.J',3, 3>‘. Jhg, 3) (3» . C» sf 5 " if ! cV( 1“,* ‘ 


fel 


T\r\ 
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DIMENSION CTI (3,3) ,CTR (3,3) ,CNI(3,3) ,CNR (3,3) ,SN (3) , ST (3) 
DIMENSION 01(3) , D2 (3) , D3 (3) , D4 (3) , BODY (1 5) , DBG 1 (3, 3) , LIMIT (10) 
DIMENSION COEPP (4) 

DIMENSION XLIH (2) , NCOL (3,3) 

DIMENSION XCB ( 1 8) , XS ( 1 8) , YCB (18) ,TB (18) , ALPHA (3, 18), SIGMA (3, 18) 
DIMENSION NTS (3, 18,12) ,OTL (3, 18, 12) ,0TT(3, 18,12) 

DIMENSION VTS (3, 18,1 2), HTS 1(3, 18, 12) , UTS (3, 18, 12) 

DIMENSION OTLI (3,18, 12) , OTTI (3 , 1 8, 12) , VTSI (3 , 1 8, 12) 

DIMENSION ENT (3,2) ,REH (3, 2) , FLUXIN (3) ,FCOL(3) 

DIMENSION VARG (42) ,CORV (42) , IPLUX (3,2) 

DIMENSION LB (NHP) , NBN (NHC) , NBM (NSP,NMC) , LH (NSP,NMP) 

DIMENSION ER (NSP,NMP) ,TRP (NSP, NHC) ,TRPA (NSP,NHC) 

DIMENSION DBA (NSP,NMC) , NB (NSP,NMC) , NBT (NSP,NMC) 

DIMENSION TMP (NSP, NHC) ,TMPA (NSP,NMC) ,XV (NSP, NHC) ,I7A (NSP,NMC) 
DIMENSION YV (NSP , NHC) ,YVA (NSP,NMC) ,ZV(NSP,NMC) ,ZVA (NSP, NHC) 
DIMENSION T(NSP,NSP,NMC) ,DB(NSP,NHC) 

DIMENSION FNB(NMC) ,XC(NMC) ,YC(NMC) ,ZC(NMC) 

DIMENSION TEL (NJV , 4, NSP) , PFV (NJY, 4, NSP) 

DIMENSION PAD (NSP, NHP) , PAY (NSP,NMP) , PA W (NSP, NMP) 

DIMENSION PAX (NSP, NMP) ,PAT (NSP, NHP) , PA Z (NSP, NHP) ,LCOL (NSP, NMP) 


COMMON /RANCOM/NRAN (4) , KAWLS 

COMMON /FIRST/NL, N»,NH 

COMMON /SECND/BW,BH,RMP,RHN,RMF 

COMMON /THIRD/PI, NREG, S, SI NANG, COSANG, ANN, AKT, AKN 1 , AKN2, AKT1 ,AKT2 

COMMON /FORTH/NBX,RM,XR,DOHP,C9,LL(3) , LLM 

COMMON /FI PTH/ND, TI HE , DTH , TI» ITS, I TP, T ST, TLIN, RQA, RNQ, Ell? 

COMMON /SI XTH/RHB, XSTART,INH,HNS,MNB,NEN,SA7E,PERCNT,NSR,TR 
COMMON /SVNTH/LAN, HU,ND,MT,N,J,X,Y,Z,TUSE 

COMMON/EIGTH/DENF,U,TF, ANGLE, TRF, CHI, PHI, ETA, WTM, DAM, VELH, XREF 
NANELIST/CONTRL/NAHE,TlTLE,PERCNT,ICOPY, DOHP, DEBOG, NEW, SAVE, REDO 
NA MELI ST/TIM ES/DTH, ITS, ITP,TST, TLIH 

NAHELIST/FLOREF/LLN, MNM, MNB, MSP, MET, 0, ANGLE, RNO, EHA, TF,DENF 
NA MELI ST/HOLEC/TRF, DIR , ETA, PHI, CHI, ACE 
N A MELI ST/SHAPES/ BODY 
NA ME LI ST/GEO M/NMEDG, NK , NH 
N A H E LI ST/I NC 0 PL/P L U X I N , F CO L /R 8 # , # V , KM t 
NAHELIST/INOOT/YARG,CURY 
DATA IC/0/,ICOPY/1/ 

DATA DBG 1/* GAS*,' AT ','110 ','FLOII',' AT ','130 ',» 

1*303 •/ 

DATA LIMIT/12,9, 18,500,3600,70,900,3,20,3/ 

DATA TITLE/' V 

DATA NAME/' ',' '/ 

DA TA C PC/0 . 0/, C PH/0 . 0/, CP B/0 . 0/, CP J/ 15.0/ 


RDN0460 


RUN0520 

RUN0530 

RUN0540 


RDN0580 

RDN0570 


RON',' AT ' , RONO 630 
RONO 640 

RON0660 

RON0670 


’ ************* ********** ********** ***** ******* ****** ******************** 


FORMATS 


1 FORMAT (1H1) 
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RDN0680 
RONO 6 90 
RO&Q700 
RON0710 
RONO 720 
RONO 73 0 
R0N0740 
RONO 750 
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2 FORMAT (1R1/17X, • BARIPIED SUPERSONIC PLOW OP BINARY G AS • ,T7 4, • I • ) PON0760 

3 POPMA? (• , 103X, 'COPY ',12) BUN0770 

4 FORMAT (/17X, 'PLOW THROUGH ALL THE BOON DA P I ES '/5X , ' HT • # 5X , « H ASS I'd 

IE PR. ' , 10X,'PCOL. FLUXIN PLUXES (ENT)') 

5 PORN AT (3X, I4,P9.2, P9.4,SX,4P10.4) 

25 FORMAT (/5X, 'PRESSURE RATIO (I NSIDE/ENTRANCE) - EITHER TTPE «',P13.S 
1,' BMP' ,T76, • I'/6X, 'DENSITY R ATIO ( I IIS ID E/ENTR ANCE ) - EITHER TTPE 
2«*',P13.5,' RMW ,T76, 'I'/9X, 'FLUX PATIO (INSIDE/ENTBANCE) - EITHER 
3T" 'I * ', F 1 3. 5, • RHP' ,T76, • I •/) 

26 I 'AT (//10X, ' FLUX PATIOS POP SPECIES RHA P7. 2/ 2X,' BOUNDARY', 

l” INFLUX REFLUX NET PLUX NET PLUX/RKO*U'/2X, 'ENTBANCE* , 

2 ' ? G.4/4X, 'CAVITY* ,4P10. 4/) 

30 ?t.‘ ?(• 1TIHE *',P6. 3, 60X, 'RANDOM NUMBER GENERATOR HAS BEEN CALLED 

I ' , I 0,' TIHES') RUN0800 

31 PORHAT (' CPU TIME LEFT- ',P9.3) RUN0310 

32 PORHAT (7 X , '-MOLECULES- '/3X, 31 6) 

33 PORH AT ( ' TIHE * ' , P8 . 3, 5 X, • COLLI SION LOOP* ', P8. 3,5 X, • HOVE LOOP * • 
1,P8.3,5X,' TOTAL TIHE * • , P8. 3/2 IX , • 2ND HOVE LOOP *',P9.3,5X, 

2 'CLEANUP LOOP* *,P8.3,4X,'PARTICLE NUMBERS * ’,416) 

34 PORHAT (9X, '-MOLECULAR COLLI SI ONS- '/3 ( 31 1 4/) ) 

35 POBHAT(2X, '-COLLISIONS WITH SURPACE-'/3X,3 19) 

36 PORHAT (' HAXIHUH NUMBER OP MOLECULES SO PAR- ',16//) RUN0880 

38 FORMAT ( ' EXCESS MOLECULES OCCURRED IN ',3A4) RUN0890 

40 FORMAT (/• SOMETHING IS WRONG WITH BOX NUMBERING IN RUN • /9 15 , 5 E 1 4. RUNO 900 

15) 

44 FORMAT (' N B ( • , 1 2 , ' , • , I 4 , • ) POPULATION EXCEEDED ',13,' IN MAIN AT TRUN0930 

II HE * ', F7.3) RUN0940 

50 FORMAT (///' SNAP SAVED ON TAPE'; R0N0950 

RUN0960 

R0N0980 

CPA*ELTIHE (0) 

CALL NOUNDF 

CALL TRAPS (0, 1, 1000000, 1 , 1) 

0F F °Ofi quality 


RUN1030 
RUN 1 040 

RUN 1 060 
RUN 1 080 
RUN1 190 


RUN 1 230 
RUN1260 
RUN 1 240 
RUN 1 250 


LI HIT (4) *NHC 
LI HIT (5) = NHP 
LIMIT (6) *NPB 
LIMIT (7) * N JV 
LIMIT (10) * NSP 
K A W LS-0 
PI*3. 141593 
PI ROOT*S QP T (PI) 
HET=0 
LARGE=0 
NL»1 

DUMP*. TRUE. 

DEBUG ( 1) =. FALSE. 
DEBUG (2) = . PALSE. 
DEBUG(3)=.TRUE. 
SAVE*# FALSE. 
NPW=.TBUE. 

• REDO*. PALSE. 

PERCNT*. 00 1 
ACR=.001 
DO 58 I* 1, 15 


^ - 3 
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58 


59 


60 


2 

3 

4 

5 

6 

7 

8 
9 
A 
B 
C 
D 


BOOT (I) *0.0 
DO 60 1*1, 3 
FNU (I) *0. 0 
BE A (I) *0.0 
CHI (I)*C. 0 

PLUX IN (I) *0. 0 ORIGINAL PAGE 19 

PCOL (I) * 0. 0 OF POOR QUALIW 

LL (I) *0 

DC 59 J* 1, 18 

ALPHA (I, J) *1.0 

SIGHA (I, J) *1.0 

DO 60 K* 1, 3 

ETA (I,K) *0.0 

PHI (I, K) *0.0 

DIP (I,K) *0.0 

WRITE (6, 1) 

BEAD (5,CONTRL) 

HPITE (6, CONTBL) 

IP (NEW) GO TO 103 
BEHIND 9 

BEAD (9) DENP.n, X RE P, TF P, K A WLS, NL , N W, NH, BW,BH,NREG,XLB,XLC,PI,ND, 
S,SINA MG, COSANG, AKN, AKT, NBX, BN , X R, TI HE , DTN , T I , ITS, ITP,TST 
TLIH,PHA,BNO,DIB,XSTART,HNH,HNB, TR , B2C ,CN7 , DRP , PCF, P NA , 
HTf , INH, LLH, M A V , N H A X , Nf EDG, PRT, S A HP, AK Ml , AKN2, AKT1 , AKT2, 
BTA,C1,C2,C3,C7,C8,DAH,DFA,PL,DELANG,PDN,HTI,HTR,JNT,KNN, 
NH , HTH, C4, VRH, NCOL, CT I , CTB , C NI ,C NR , SN, 

ST,D1,D2,D3,D4, NRAN, VELR, RH P, R IN , R 1 R, I PLOX , P LUXI N, 
XLIH,COEPP,!.rB, XS, YCB,TB, ALPHA, SIGHA, MTS, 

OTL, OTT, VTS, HTS, HTSI , ENT, :.EM,THPA, 

DBA, N8,NBT,TNP,XV, XVA, TV, TVA,ZV, ZV A , T, DB , P MB , XC, TC, ZC, 
PAU, PAV, PAH , PAX, PAT, PAZ,LCOL,LH, 

ET A , PH I , CH I,CN,CH,CNG,CHG,CN8,TRP,TRPA,HSP,ANGLE,TP, 
OTLI,OTTI,fTSI,ER,RHB,LB, NBH, N BN , V EL , P PV , PCOL, J V 


DTHO*DTH 
READ (, TINES) 

HPITE(6, TIMES) 

IP (DTH.EQ. DTHO) GO TO 100 
AIHE=TIHE*DTHO 
TIHE*AIHE/DTH*0. 1 
DO 99 J= 1 , NSP 
DO 99 L= 1 , 2 

ENT ( J, L) = ENT (J, L) * BTS/DTNO 
99 CONTINUE 

100 IP (TI.GT.0.0) TST= TI/DTH 
HBITE (6,2) 

HPITE (6, 4) 

HRITF (6,5) (HT, RHA (HT) , RNU (AT) ,PCOL(HT) ,PLUXIN(HT) , (ENT (HT, K) ,K = 1, 
1) , HT=1 ,HSP) 

WRITE (6,2) 

CALL PRINT A (NWEDG, TITLE, NA HE , XCB, TCB, TB , ALPHA, SIGHA, XLIH, 

1COEPP, LI HIT, HSP) 

CALL PBINTB (PNA, HSP, PNB, NH, XLIH, XC, TC, ZC, N B, NS P) 

GO TO 280 
103 READ (5, TIMES) 

WRITE (6, TINES) 


RUN1 330 
B ON 1 340 

RUN1 360 
RUN 1 370 


R UN 1 54 0 


RUM 1 590 


GKBINT AUG 62 
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READ (5, PLOBEP) 

HRITE (6, PLOREP) 

READ (5,HOLEC) 

9 BPITE (6, NOLEC) 

IP (HSP.GT. LI HIT (10) ) CALL DI AG ( 1 0 , LIN IT { 1 0) ,NSP) 

CHINO .0 
RHR s 0.0 
DNR=0. 0 

ETT«0.0 

DO 105 H*1,HSP ORIGINAL PAGu 19 

BHP*PHB*BHA (N) *PN0 (H) q » . 

CHIN *CH1N^ CHI (H) *R NO (N) ' 

105 CONTINUE 

DO 115 K*1 , NSP 
DO 115 H* 1 , NSP 

9 ETT=ETT*RNO(H) *RNU (K) *ETA (N,K) 

SPNA-SORT (.5*R.1R* ( 1./RNA (N) ♦ i./RNA (K) ) ) 

115 DHR-DNB' k RNU (H) •RN , J (F) *DIR (N, K) • (T R F/T P) * • ( ETA ( N, K) /2 .) *SBN A 
IRE P*1./(DENP*DNR*1. 414214) 

VELR*SQRT ( 16628. 64*TP/RNR) 

IP (NET. NE. 0) VELB=SQRT(99437. 9 2*TP/RNR) 
r THB=XREP/VELR 

S*U/V ELR 
NR EG* 1 
ND= 1 

PEAD(5, SHAPES) 

NFITE (6, SHAPES) 

XCB(1)*BODY ( 1) /XRE P 
TB (1) =BODY (2) /TP 
YLIN (1) = XCB (1) 

XSTART*XLIN ( 1) 

PHB= . 5*BOD Y (3) /XREP 
TR = TB ( 1) 

104 READ (5, SHAPES) 
f BITE (6, SHAPES) 

ND=ND* 1 

IF (ND.GT.LINIT (3) ) CALL DI AG (3,LINIT (3) # ND) 

XCB (ND) =BODY (1) /XREP 
TB (ND) = BOD Y (2) /TP 
DO 1104 H=1,HSP 
ALPHA (8, ND) =BODY (2*2*H) 

1104 SIGNA (N, ND) =BODY (3*2*N) 

IP (TB (ND) .GT.TR) TR=TB (ND) 

IF (BODY (3) .EQ. 0.0) GO TO 104 
NSTE P= NF EG ♦ 1 
XLIH (NSTEP) =XCB (ND) 

COEFP (1) =0. 0 
COEPP(2) =1 .0 
COEPP (3) =0.0 
COEPP (4) =-RHB**2 
XR = XLIH (NSTEP) -XST ART 
AKN=1./XR 
ART* . 5/FHB 

RNFP 1*TB (1) ** (. 5+ETT/2. ) / ( 2. *PIROOT*S) 

RHPP2=TB (ND) *• ( . 5 + ETT/2. ) / (2 . *PIROOT*S) 


RON 1 640 
RON 1 650 


RUN1670 

RON 1 600 
RON 1 690 


R0N1770 


R0N1800 
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ARN1*AKN*RBPP1 
ARN2*A KN*B BPP2 
ART1* ART*R BPP 1 
ART2*ART*RNPP2 
DO 260 N"* 1 , 3 
DO 260 N*1,3 
NCOL (N,B) *0 
260 CONTINUE 

READ (5,GEON) 

READ (5, I NCUPL) 

WRITE (6, GEON) 

WRITE (6 # I NCUPL) 

DO 116 J*1,42 
VARG (J) *0.0 
116 CURV(J)*0.0 

RBN=FNP*TB (1) /TB (NO) 

BHP*SQBT(RNN*FBP) 

FB*RBB 
BW=XF/NW 
BH*RN/NH 

IP (NWEDG.GT.LIBIT(I) ) CALL D I AG ( 1 , LI NIT ( 1) , N WE DG) 
IP(BNB.GT. LIBIT (5) ) CALL DI AG (5, LIBIT (5) , HNB) 

IP{BNB.GT. LIBIT (6) ) CALL DI AG (6, LIBIT (6) , BNB) 

DELANG* 180./NWEDG 

SI NA NG*SIN (ANGLE/ 180.* PI) 

COSA NG*COS (ANGLE/ 180.* PI) 

VOL=PI*RB*RB*XR 
NBX= NW*NH* NW EDG 

IP (NBX.GT. LIBIT (4) ) CALL DI AG ( 4, LI NI T ( 4) , N BX) 

IP (JV. BE. LIBIT (7) ) CALL DI AG (7 , LI KIT (7) , JV) 

BB*SQRT (TR) 

SPBX=0.0 
DO 916 HT*1,flSP 
BTB (NT) *BBA (BT) /RNR 
BTA (BT) *SQRT (WTB (BT) ) 

SR (BT) *S *BTA (BT) 

SRT’SR(NT) *PLnXIN(BT)/FNU(BT) 

IP (SRT.GT. SRBX) SFNX*SRT 
916 CONTINUE 

INB=LLB*SQRT (TB (1) ) /PIBOOT/SRBX/ ( 1. ♦BBN) 

DDN=I NB/VOL 
DO 140 AT* 1 , B S P 
PDN(NT) *RNU (BT) * DD N 
DPA(BT) = RNU(NT) 

SN (NT)*SR (BT) *COSANG 
ST (BT) *SR (BT) * SINA NG 
DO 117 K=1,NSP 

DAB(R,BT) =DIF (K,BT) * (TRF/TP) •• (ETA (R, BT) /2. ) /DBR 
CN8 (R,BT) =DDN/DAB (R, BT) *1. 414214 
BT = ANIN1 {BTA (K) ,BTA (NT) ) 

VE 1 = S* 3. * ( 1. *SQRT (TR) )/BT 

VR2=3.*SQPT( ( 1 . ♦ 2. *S** 2/ (5. *0818) ) ♦ (1./WTB (K) ♦ 1. /WTB (BT) ) ) 
Cfl (K , ST, 1) *AB AX 1 (VR1,VR2) 

CN (R, NT, 1) =RAND (0) *CB(K, BT, 1) 

DP=PHI (K , H T) * (CHI (R) *CHI ( BT) *2.) -1 


ORIGINAL PAGE 
OF POOR QUALITY 


R0N2200 


RUN2230 

RUN2240 

RUN2320 

RUN2330 

RUN2420 

RUN2470 

RUN2480 


RUN2740 

PUN2750 
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DS-PHI (K,NT) • (2. 5* ETA (K,NT) ) -1. 0 

DO 917 N = 2 , 3 

XPN* AC***ANIN1 (DP, DS) 

f IP ( (DP.GT. 0.) .AND. (DS.GT.O.) ) X PN* ( DP/ ( DP*DS) ) ••DP* (DS/(DP*DS)) **DS 
X PN* ACR* • A N A X 1 (DP, DS) 

IP ( (DP.LT. 0.) . AMD. (DS. LT. 0.) ) IPN* (DP/(DP*DS) ) **DP* (DS/(DFOS) ) **DS 

CN (K , NT , N) *XPN-XPN 

CN (K , NT , N) =RAND (0) •CH(K,NT,N) 

DF=CHI (K) 
t DS*CHI(NT) 

917 CONTINUE 

117 CONTINUE 

DO 118 K*1,K«X 

READ (5,INOUT) ORIGINAL P;" 

WRITE (6, INOUT) OF POOR Qc 

I DO 119 J=1,JV 

VEL (J, K, NT) * V ARG ( J) 

PF?(J,K,NT) *CURV (J) 

118 CONTINUE 

ENT (NT,1)=INn*S*DTH*AKN*FLUXIN(NT)/RNU (NT) 

ENT (HT,2)=RNN*ENT{NT, 1) *SQRT (TB (N D) /TB ( 1 ) ) 

* REN (NT, 1) *0. 0 
REN (NT,2)*0.0 

LL (NT) *INN*PIROOT* ( 1 . ♦ RNN) *SP (NTJ/SQRT (TB (1) ) *PLUXIN (NT) /RNU (NT) 
CHT=CHI (NT) 

IF (CHT.GT. 0.) CNG (NT) *CHT**CHT*EXP (-CHT) 

IP (CHT.EQ. 0. ) CNG(NT) = 1.0 

* IP (CHT.LT. 0.) CNG (NT) *ACR**CHT*EXP (-ACR) 

CNG (NT) *B AND (0) *CNG (NT) 

140 CONTINUE 
IS(1)*0.0 
DO 155 N*2,ND 

155 XS (N) * (.5* (XCB (N) ♦ XCB (N- 1 ) ) -XSTART) *AKN 
f YCB ( 1) *0 . 0 

DO 160 N* 2 , ND 

160 YCB (N) *2. • (XCB (N)-XCB (N- 1) )/RNB 

CALL CELL (BW,BH,NW,NH, XSTART, DELA NG, N WEDG, XC, YC, ZC,PNB) 

PN A=0. 0 

DO 210 N= 1 , NBX 
t?10 PN A* PN A* PN B (N) 

NPX=NBX 
220 TIHE=0 
LA RGE=0 
SANP=0 
PRT=0 
t NAV*0 

A I F. E= 0 . 

TI=0 . 0 
DT=DTN 
NN A X*0 

DO 250 HT= 1 , 3 
f Cl (NT) =F AN D (0) 

C2 (NT) -FA N D (0) 

C3 (NT) = RAND(0) 

C7 (NT) *FA ND (0) 


RUN3330 

RUN3380 

RUN3390 


RUN4250 

PUN4260 

RUN4270 

RUN4L90 

RUN4300 

RUN4310 

RUN4380 

RUN4410 

FUN4420 

RUN4430 

RUN4440 
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C8 (NT) *RAND(0) 

D 1 (NT) *RAND(0) 

D2 (NT) * R AN D (0) 

03 (NT) *R AN D (0) 

D4 (NT) “FAN D (0) 

FL(HT)»0. 

HTI (NT) *0. ORIGINAL PACC . 

HTR(HT)*0. OF POOR QUALITY 

JNT (NT) *0 

NH (NT) *0 

IPLOX (HT, 1)*0 

IFLUX (NT, 2) *0 

DO 230 N 3 1 , 3 

CTI (NT, N) *0. 

CTR (NT, N ) *0. 

CNI (HT,N)*0. 

230 CN R (NT , N ) * 0. 

DO 240 N=1 , ND 
DO 240 K=1,NiEDG 
NTS (NT, N , K) *0 
HTSI (NT, N,K)*0. 

OTLI (NT, N, K) *0. 

UTTI (NT, N, K) =0. 

VTSI (NT, N , K) *0. 

OTL (NT, F , K) *0. 

OTT (NT, N , K) *0. 

VTS (NT, N, K) *0. 

240 HTS(NT,N,K)*0. 

DO 245 N*1,NPX 
NB (NT, H) =0 
NBT (HT,N) =0 
DBA (NT,N) *0. 

XV A (HT,N) *0. 

YV A (MT,N) =0. 

ZVA (MT,N) =0. 

T MPA (ST, N) *0. 

TR PA (NT, N) =0.0 
DO 245 N N* 1 , NSP 
T ( NT, NN, N) *0.0 
245 CONTINUE 
250 CONTINOE 
PN D=DDN 

DRF=2./(PND*S*S*RNB*PN9*PI) 

PCP* 1./(PND*S*BNB*RHB*PI) 

HT P*. 5*DR P/S 
WRITE(6, 2) 

WRITE (6,4) 


P0N4450 

RUN4460 

P0N4470 

R0N4480 

PUN4490 

R0N4500 

RUN4510 

R0N4520 

RON4530 

R0N4540 


R0N4550 

RUN4560 

P0N4570 

RON4580 

R0N4590 

PON4600 

RUN4610 

R0N4620 

R0N4640 


RON4650 

RUN4660 

R0N4670 

R0N4680 

RUN4690 

PON4700 

RUN4720 

RUN4730 

RUN4740 

R0N4750 

R0N4760 

RON4790 


RUN4800 


RUN4930 

R0N4940 


WRITE (6, 5) (HT, RH A (NT) ,PNU(HT) ,PCOL(NT) ,PLUXIN(NT) , (ENT (HT, K) ,K*1,2 
1) , HT* 1 , MSP) 

WP ITE (6, 2) RDN5000 

CALL PRINT A (NWEDG, TITLE, NA HE, XCB, YCB, TB, ALPHA, SIGN A, XLIN, 
1COEPP,LIHIT,MSP) 

CALL GAS (NWEDG, DELANG, ND, BTA , C 1 , DPA , NH, PNB,DB, N9, NBH, NBN, 

1 PAD, PAY, PAW,PAX,PAY,PAZ,XLIN,COEPP,LN,LIHIT(4) ,LIHIT (6) ,XCB,TB, 

2LARGE, HF.N, NN B, DEBUG (1) ,LCOL, NSP, ER,CHI,CNG,CHG, NSP, LB) 


ft 


GK3INT AUG82 


A 


PRINCETON UNIVERSITY TINE-SHARING SYSTEH 


f 65 


I 

280 


9 

282 

205 


9 


9 


9 


9 






CPUTYN»TPIND<0) OHJG» i. r P uT I9‘ 

IP (LARGE. NE.O) GO TO 345 OF POOli QUALITY 

DO 265 1=1, HSP 

IP (NH (I) .GT.NHAY) NHAX«NH(I) 

CALL PtINTB(FHA,HSP,PNB,NH,ILI!l,XC,YC,ZC,NB, NSP) 

I P (DEBUG (2) ) WRITE (6,1) 

CALL ACCUN (N NC , NPB , PNB , NB, PAU, PAV, PAV, EP , THP, TR P, X V, YV,ZV, LH,NSP, 

1 NSP, NBH) 

CP A= ELTI HE (0) 

CPI=CPA 
GO TO 340 
TIHE=TkHE* 1 

IP (TINE. NE.TST^I) GO TO 285 

TI=TST*DTH 

DO 282 HT* 1 , HSP 

IPLUX (HT, 1) *0 

IP10X (NT ,2) *0 

LARGE-0 

CP I s ELTI N E (0) 

AIHE=TIHE*DTN 

DT*AINE-TI 

IP (DEBUG (1) ) WRITE (6, 33) AI HE, C PC, CPN, CPI, CPB, CP A, (NN (I) ,1=1,3) , NHAX 
PFT= PRT* 1 
SAHP=SAHP* 1 

CALL COLID E(CK,CN, WTH , DB, D U A , N B, NCOL , LCOL, PAU, PA V , PAW, ER ,T , LB, NSP, 
1LI NIT (4) , LINIT (6) , ETA, PHI ,CHI ,CN8, NSP, NBH) 

KNH (1) =0 
KNH (2) *0 
KNN (3) *0 
CPC= ELTI HE (0) 

IP (DEBUG (1) ) WRITE (6,33) AINE,CPC,CPN,CPI, CPB,CPA, (NN (I) , I* 1 , 3) , NNA X 
CALL NOVE(0, AKN, NWEDG, XSTART, LINIT (3) , LI HIT (1) # LI NIT (8) , LI HIT (9) , 
1DELANG,BTA,C2,C3,DPA,PL,HTI,HTR, JNT,KNN,NN,XCB,XLIN,CTI,CTR, 

2CNI , CN R, ALPHA, SIGN A , COEFP, HTS , HTSI , NTS , PTL,UTT , VTS , P AU , PAV , p AW , 
3PAX, PAY,PAZ,LCOL,TB,NSP,ER,CRI,CNG,CHG,NSP,UTLI, UTTI , VTS I, IPLU X) 
KNH(1) *N H ( 1 ) 

KNH (2) *NN (2) 

KNH (3) = NN (3) 

CPfl=ELTI HE (0) 

IE (DEBUG (1) ) WRITE (6,3 3) AI H E, C PC, CPH, CPI , CPB , CP A , (NH (I) ,1=1,3), NHAX 
TBI = T3 (ND) 

CALL PLOW (NWEDG, NNR, LA RGE , BTA , C 1 , C7, C3 , ENT, R EH , LCOL, HSP, NH ,SN, ST, 
1TBI, PAU, PAV, PAW, PAX, PA Y, P A Z, ER , CHI , CNG,CHG, N SP , J V , PCOL , V EL , P FV ) 

IP (LARGE. NE.O) GO TO 345 
CPB=ELTI HE (0) 

IP (DEBUG (1) ) WRITE (6, 3 3 ) AI HE, CPC , CPH, CPI , CPB, CP A, (NH(I) ,1 = 1 ,3) , NHAX 
CALL HOVE (1,AKN, NWEDG, XSTART, LIHIT ( 3) ,LIHIT(1) , LIHIT (8) , LI HIT (9) , 
1DELANG,BTA,C2,C3,DPA,PL,HTI,HTR,JNT, KNH, NH, XCB , X LI H, CTI , CTR, 
2CNI,CNR, ALPHA, SIGH A, COEPP, HTS, HTSI , N TS, UTL, UTT , VTS , P AU , PA V , PA W , 
3PAX, PAY, PA Z, LCOL,T B,HSP,ER,CHI,CNG,C3G,NSP,UTLI, UTTI , VTSI , IPLU X) 
CPB=CPB»ELTIHE (0) 

IP (DEBUG (1) ) WRITE (6, 33) AI HE, CPC, CPH, CPI, CPB, CPA, (NH (I) ,1 = 1 ,3) , NHAX 
DO 330 HT= 1 , HSP 
DO 290 H= 1 , NBI 
NB (HT,N) =0 


RUN5060 


RUN5130 

RUN5140 


RUN5170 


RUN5 180 
RUH5190 


RUN5220 

RUN5230 


RUN5280 

BUN5290 


RUN5330 


RUN5420 

RUN5450 


ILE: GRBINT 
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GO TO 308 
WRITE (6,44) 


HT, K, HNB, AIHE 


290 CONTINUE 
NG«NH (HT) 

N-0 

295 N*N» 1 

IP (N.GT. NG) GO TO 310 

I*PA X (HT, N) ORIGINAL PAUc VJ 

Of POOR Q'JALITX 

R«SQRT (Y*Y*Z*Z) 

TANG* 180. *ATAN2 (Z,“Y)/PI 
IWDGE-TANG/DELANG* 1 
IP (IWDGE.LT. 1) I WDGE* 1 
IP(IWDGE.GT.NWEDG) I WDGE=NWEDG 
L« X/BW 

IP(L.GE.NW) L* NW- 1 
B*R/BH 

IP(H.GE.NH) H* NH- 1 
K*NW EDG* (L*NH*H) *IWDGE 
IP (K. LE. NBX) GO TO 305 

WRITE (6,4 0)L,H,IWDGE,NW,NH,NWEDG,K,HT,N, X,Y, Z,R,TANG 
IP (DURP) CALL ABEND (4) 

STOP 

305 J*NB (HT, R) »1 

IP (J.LE. HNB) GO TO 308 

IP(DEBUG(1)) WRITE (6,44) HT, K , HNB, AI HE 
308 NB (HT , K) * J 
LB (N) >K 
GO TO 295 
310 CONTINUE 

NBH (HT# 1) *0 
DO 320 H= 1 , NBX 
A* NB (HT, H) 

DB (HT, H) =A*DPA (HT) /PNB (H) 

NBH ( HT, H ♦ 1 ) *NBH (HT, H) ♦ N3 (HT, H) 

NBN (H) *NBH (HT, H) 

320 CONTINUE 

IP (NH (HT) .GT.NHAX) NHAX*NH (HT) 

DO 325 N=1,NG 
Q=LB (N) 

NBN (Q) *NBN (Q) *1 
NA-NBN (Q) 

325 LH (HT, BA ) = N 
330 CONTINUE 

IF (SAHP.LT.ITS) GO TO 335 

CALL ACCUH (NHC, N PB , P NB , NB, PAU, PA V , PA W, EP , TH P,TRP , X V , T V 
1NSP/N3H) 

SAHP=0 

IP (TIHE. LE.TST) GO TO 335 

CALL AYBGE (PNB, DB, DBA, NB, NBT, XV, I?, ZT, XV A, Y7A, ZYA,THP, 
1 A, HSP, BSP) 

NAY=NA ?♦ 1 
335 CPA=ELTIHE (0) 

CPI=CPC»CPH»CPB»CPA 

CPJ=2.*CPI*5. 

340 CPUTYH*TPIND(0) 


RUN5470 
B U N c > 4 8 0 
RUN5490 
RUN5500 
RUN5510 
RUN5520 
BUN5530 
RUN5540 
RUN5550 


BUN5610 

RUN5620 

RUN5630 

RUN5640 

RUN5660 

RUN5680 

BUN5690 


RUN6400 


RUN6430 


RUN6450 

RUN6480 

RUNb490 


RUN6500 

RUN6510 


RUN6520 


,ZV,LH,HSP, 


RUN6570 


THPA ,TRP,TRP 


RUN6600 
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IP (DEBUG (3) ) NPITE (6, 3 3) A I HE,C PC, CPU, CPI , CPB,CP A, (NN(I) ,I*1,3),NHAI 
IF(TIRE. EQ.O) GO TO 355 

IP((TIHE.GE.TLIH).OP. (CPUTYH. LE.CPJ) ) GOTO 345 
f IP(PRT.LT. ITP) GO TO 280 RON6650 

PBT»0 RUN6660 

345 WRITE(6.30)AIHE,KAWLS RUN6670 

IP (DEBUG (3) ) WRITE (6,31)CPUTYH 
WR ITE (6, 32) (NH (I) ,I«1, 3) 

WRITE (6, 34) ( (NCOL (I , J) , J* 1 , 3) ,1*1,3) 

' WRITE (6 # 35) (JUT (I) .1*1, 3) 

IP (LARGE. N E. 0) GO TO 360 RUN6740 

WRITE (6,36) NHAX RUN6750 

IP(. NOT. SAVE) GO TO 355 RUN6900 

IP (PPT.KE. 0. AND. CPUTYH. GT.CPJ. AND. TIRE. LT.TLIfl) GOTO 355 
REWIND 9 

WRITE (9) DENP,0, XREP,TRP, KAWLS, NL,NW, NH,BM,BH, NBIG, ZLB, ZLC, PI, ND, 

2 S, SI NANG, COSANG, AHN, AKT, NBX, RR, XR,TIRE, DTR,TI, ITS, ITP,TST, 

3 TLIH,RRA,RNU,DIR,XSTART, RNR, HNB, TR, BZC ,CN7, DEP, FCP , P NA , 

4 HTP,INH, LLH,NAV,MRAX, NWEDG,PRT, SAHP, AKN1, AKN2, AKT1,AK?2, 

5 BTA,C1,C2,C3,C7,C8,DA1,DPA,FL, DELA NG, FDN, HTI , HTR, J NT,K NS, 

6 RR,8TR,C4, VPR, NCOL, CTI , CTR , CNI , CNR , SN, 

7 ST,D1, D2,D3, D4, NP AN, VELR, RRP, RRN,FRP,I FLUX , FLU XI N, 

8 ILIH,COEFP,XCB,XS,YCB,TB, ALPHA, SIGH A, NTS, 

9 UTL, UTT, VTS, HTS, HTSI, ENT,REH,TNPA , 

A DBA,NB,NBT,TRP,XV,XVA, YV, Y VA , 2 V, 2 V A, T, DB, PNB, IC, YC, ZC, 

B PAU, PA V, PAW, PAX,PAY,PAZ, LCOL , LN , 

C ETA,PHI,CHI,CN,CR,CNG,CHG,CN8,TPP,TRPA,RSP,ANGLE,TP, 

D UTLI,UTTI, VTSI,ER,RRB,LB,NEH,NBN,VEL,PPV,PCOL, JV 

WRITE (6,50) RUN7050 

355 CONTINUE 

WRITE (6,25) FHP,RRN,RHP 
DO 356 RT* 1 , HS P 
FIN1*EM (HT, 1) 

’ FIN2*ENT (HT,2) 

R F 1*1 FLUX (HT, 1) *DTH/DT 
BP2*IPLUX (RT, 2) *DT H/DT 
BNP1* 1 •-BF1/FI N 1 
RNP2* (PIN2-RP2)/PIN1 
BPS1*RNP1*FLUXIN (HT) /PNU (RT) 

♦ BPS2*RNF2*PLUXIN (HT) /FNU (HT) 

356 WRITE (6,26) RHA (HT) , PI N 1 , RP 1 , RNP1, FPS 1, PIN 2, FP2, BNP2,FPS2 
IF (TIHE. EQ.O) GO TO 280 

IP (TIRE. LE.TST) GO TO 350 

CALL PRINT1 (DT, COSANG, SI N ANG, F H A , RNU , DR P, PCP, HTP , PL, HTI , HTR, CTI , 

1 CTR , CNI , CNR) 

t CALL PBINT2 (AKN, XSTART, DT, RNU, BH A, DR F, PCP, HTP, UTLI ,UTT I, VTS I, HTSI, 

1 DELA NG, N WEDG, XS,XCB,YCB, HTS, NTS, UTl, UTT, VTS, LI HIT (3) ,LIHIT ( 1) , HSP) 

CALL PRINT4 (HSP, CHI , RNU, NSP, TFPA, PDN , WTH , D BA , N BT ,THP A, XV A, 

1YVA,ZVA, 1,NBT,XC,YC,ZC) 

GO TO 353 RUN6860 

350 CONTINUE 

• CALL PPINT4(HSP,CHI,PNU,NSP,TRP,PDN,BTH,DB,NB,THP,IV,Yf,ZV, 

10, NB, XC, YC, ZC) 

353 IP (DEBUG (2)) WRITE (6,1) 

IF ((TIHE.LT.TLIH) .AND. (CPUTYH.GT.CPJ) ) GO TO 280 
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A 
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IP (IC. EQ.ICOPY) RETORN 

IC«IC*1 

WRITE (6, 2) 

WRITE (6,4) 

WRITE (6,5) (NT, FN A (NT) ,RNO(NT) , PCOL(NT) ,PLOXIN(NT) , (ENT (NT, K) ,K-1, 
1) ,HT«1,HSP) 

WRITE (6, 2) 

WRITE (6, 3) IC 

CALL PPINTA (NWEDG, TITLE, NANE, XCB, TCB,TB, ALPHA, SIGN A, XLIH, 

1COEPF, LIBIT, NSP) 

CALL PFINTB (PNA,N5P, PNB, NN, XLIN, XC, T C, ZC, NB, NS P) 

SAVE*. PALSE. 

GO TO 345 

36 0 WRITE (6, 38) (DBG 1 (I, LARGE) ,1*1,3) 

IP ((REDO) . AND. (TINE. LE.TST) ) GO TO 364 
I P (DON P) CALL ABEN D (9) 

stop original f: ; 

36 4 CONTINUE OF POOri QUALITY 

IP (NEW) GO TO 365 
REWIND 9 

PP AD (9) DENP,0, X REP, TRP, K AWLS, NL , N W , NH , B W , BH , N R EG, XLB, XLC, PI , ND, 

2 S, SI NANG, COSANG, AK N, AK T, N BX, RN , X P, TI N E, DTN , T I , ITS, 1TP,TST 

3 TLIH,PNA,PNU,DIR,XSTART,HNR,NNB,TB,BZC,CN7,DRP,FCP,PNA, 

4 HTF, INN, LLH, NAV, NNAX, NWEDG, PRT, SANP, AKN 1, AKN2, AKT1,AK?2, 

5 BTA,C1 ,C2,C3,C7,C8,DAN,DPA,PL, DE LA NG , PDN , H TI , H TR, J NT, K NH , 

6 NN,WTN,C4, VFN, NCOL , CTI , CTR , CNI , C NR , SN, 

7 ST,D1, D2,D3, D4,NBAN, VELR , RNP , R NN ,RHP, I PLOX , FLU XI N, 

8 XLIN, COEPP, XCB, XS,YC8,TB, ALPHA, SIGHA, NTS, 

9 OTL, OTT, VTS, HTS , HTSI , ENT , P EN ,T NP A , 

A DBA,NB,NBT,TNP,XV,XVA,YV,YVA,ZV,ZVA,T, DB , PN B , XC, YC, ZC, 

B PA U, PA V , PA W , PAX,PAY,PAZ,LCOL,LR, 

C ETA, PHI, CHI, CN,CN,CNG,CNG,CN8,TRP,TRPA, NSP, ANGLE, TP, 

D UTLI,OTTI,?TSI,ER,RNB,LB, NBN, N BN , VEL, P PV , PCOL, JV 

365 ANN* INN 
INH*9*ANN/10 
DDN*. 9*DDN 
DRP*DRP/.9 
PCP=PCP/.9 
HTP*HTP/. 9 

DO 370 H N* 1 , NS P 
PDN (NN) = PDN(HN) ♦INB/ANH 
LL (NH) »9*LL(HH)/10 
DO 366 K K* 1 , NSP 

366 CN8 (KK,HH) *CN8 (KK, NH) *.9 
DO 370 NK*1,2 

ENT (NN,NK) *ENT (NH, NK) * I NN/ANH 
370 REN (NN, NR) *0.0 

IP (NEW) GO TO 220 

TST=TINE*TST 

TI*0. 

PRT=ITP 
WRITE (6,2) 

WRITE (6,4) 

WR ITE (6,5) (NT, RHA ( NT) , RNO (NT) ,PCOL(HT) ,PLOXIN(HT) , (ENT (NT, K) ,K«1, 
1) ,NT*1,HSP) 


RON7080 


R0N7120 
R0N7 130 


R0N7180 

RON7190 

HON7200 

RON7220 

RON7230 


RUN7260 
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PRINCETON DPI? ERSITY TIRE-SH AR ING SYSTER 


WRITE (6 , 2) 

IF ((LARGE. EQ.2) .OR. (LARGE. EQ. 3) ) 
REDO*. FALSE. 

GO TO 360 
END 


GO TO 280 


OF PO 


RUN74 10 


SUBROUTINE DIAG (N, ITEST, NON) 
REAL'S PARAB(IO)/' NWEDGE' , ' 
1 H NR • HNB' , • NBX' , ' 


NREG* , • 
NS' , ' 


DIAG010 


ND * , ' 
HJ', • 


NPX' ,' 
BSP'/ 


DIAG040 

D I A .0 50 

DIAG060 
DIAG 07 0 
DIAG080 
DIAG090 
DIAG100 

(# 

DIAS 1 20 
ARRADIAS130 
DIAG 14 0 
DIAG 150 
DIHEDIAG160 
DIAG170 
DIAG 1H0 
DIAG 1 90 


FORRATS 


32 

42 

44 


OLATED./) 
NPUT,I 5, 3H 


TOE FOLLOWING 


FORRAT (9X, ' ENT , R EB # E NTS, R ERS , FTH, THETA , DTH •) 

FOP RAT (///5X, 43H ARRAY DIRENSIONS ARE ABOUT TO BE VI 
FORRAT (51, 17H RAXIHUR VALUE IS, 15, 19H, WHEREAS YOU I 
1 A 8 , 1 H) ) 

56 FORRAT (/5X,70H IF YOU DESIRE TO USE THIS VALUE, 

1 Y S RUST BE RE-DIRENSIONED./) 

6 2 FORRAT (9X, • HTS, HTSI, NTS, NTSF,UTL,UTT,VTS') 

64 FOFRAT(9X, • XLI N, CO EFF • // 1 1 X, • NOTE THAT THE XLIB ARRAY HOST BE 
1NSIONED TO 3 HOPE THAN THE COEFF ARRAY.') 

66 FORRAT (9 X, 'XCB, XS, YCB, TB, ALP HA, SIGH A' ) 

FORRAT (91, 'DBA, NB, NBT , TH P, TR PA , X V , X VI, , Y V , Y VA , 2 V , Z V A, T, DB' ) 

FORRAT (9*, 'PAr,PAV,PAW,PAX,PAY,P.' / ,LCOL' ) 

FORRAT (8 X, 3H LH) 

FORRAT (//5X, 76H IF YOU CHANGE THE ARRAY DIRENSIONS, ALSO CHANGE 
IE • LI RIT ' DATA STATERENT.) 

75 FORRAT (9 X , 'ALL ARRAYS ASSOCIATED WITH SPECIES') 

FORRAT <9 X, 'FNB,XC, YC,ZC* ) DIAG240 

FORRAT (9X , ' F V, NTCV ,N TCP, HS,IWS,SL, DELS, TANGN') DIAG250 

L, PFV ' ) DIAG260 

DIAG270 

DIAG290 
DIAG300 

!ST,NUH,PARAH(N) DIAG310 

DIAG 320 


68 

70 

72 

74 


76 

78 

90 


DIAG210 

THDIAS220 

DIAG230 


1 


FO 

RHAT (9 

X,* 

WR 

ITE 

(6, 

42) 

WR 

ITE 

(6, 

44 ) 

WR 

ITE 

( 6 . 

56) 

GO 

TO 

(1 

9 2 # 

WR 

ITE 

(6, 

62) 

WR 

ITE 

(6/ 

32) 

GO 

TO 

11 


WR 

ITE 

<6. 

64 ) 

GO 

TO 

11 


WB 

ITE 

(6. 

66 ) 

WR 

ITE 

(6, 

62) 

GO 

TO 

11 


WR 

ITE 

(6, 

68 ) 

WR 

ITE 

( 6 . 

76) 

GO 

TO 

11 


WRITE 

( 6 , 

70) 

GO 

TO 

11 


WR 

ITE 

< 6 , 

72) 

GO 

TO 

11 



DIAS340 

DIAG350 

DIAG 370 

DIAG390 

DIAG400 

DIAG420 


DIAG440 


DIAG460 


ILE: GKBINT AUG82 I PRINCETON UNIVERSITY TINE-SHARING SYSTEM 

7 WRITER, 80) 01X048" 

GO TO 11 

8 WRITE (6*78) DIAG500 

CO TO 11 ORIGINAL PAGG IV 

9 WRITE (6, 80) ''F POOR QUALITY DIAG520 

GO TO 11 

10 WRITE (6, 75) 

11 WRITE (6, 74) 

STOP DIAG540 

END 0IAG550 

SUBROUTINE PRINTA (NKEDG, TITLE, NAME, XCB, YCB,TB, ALPHA, SIGH A, ILIB, 

1COEPF, II NIT, NS P) 

INTEGER TST,TLIH,TIHE PRA0030 

LOGICAL SAVE, NEW PBA0040 


DINE NS ION LI NIT (1) , TITLE (6) , MANE (2) , ICB ( 1) , YCB ( 1) , TB (1) 

DIHENSZON ALPHA (3, 1) , SIGN A (3, 1) , XLIH (1) ,COPFf (4) 

DINENSION BNO (3) ,RNA (3) ,CHI (3) , DI R ( 3 , 3) , PHI ( 3, 3) , ETA (3,3) 

DINENSION WTN (3) ,DAN (3, 3) , VELS (3) , XSP ( 3) 

CONNON /PI RST/NL, N W, NH 

CONNON /SECND/BW,BH, RHP, RNN,RNP 

CONNON /TH IR D/PI ,NREG,S,SINA NS, COS A NO, ANN, A KT, AK N 1 , A KN2, ART 1 , AFT2 
CONNON /FORTH/NB X, RN, XR, DUNP, C9, LL (3) , LLN 

CONNON /FIFTH/ND,TINE,DTN,TI,ITS,ITP,TST,TLIN, RNA,RNU, DIR PBA0100 

CONNON /SI XTH/RNB, ISTA RT, I NN, MNN, NNB, N EW, SA VE, PERCNT , N SR ,TB 
CONNON/EIGTH/DENP, U, TP , A MGLE , TRP ,CHI , PHI , ETA , W TM , DAN , VELB, XREF 
DATA NOT/* NOT •/ PRA0120 

PBA0130 

PR AO 1 50 

FORNATS PR AO 160 

PRA0170 

1 FOBNAT(16X,40(*-*) ,T74,«I*//9X,*3-D*, 12, '-FLUID PROGBAN - •) 

2 FORNAT (* ♦' ,31X,A4) PRA0190 

3 FORNAT (•♦• ,35X, 'A RESTART OF A PREVIOUS RUN* ,T7« , • I* /I 2X, 2PR AO 200 

1A4 , * - * , 6 A4, * - *,I?,* REGIONS*, T74,*I*, 16 (/T7«,»I») ) PBA0210 

4 FORNAT (71, 'PBONT OF BODY *',E12.4,' X3TAET NAX HEIGHT -*,E12.4,* 
1BNB',T74,'I* /7X , 'BODY TENPERATURES «',P12.2,' T FR.STRR. ' , F12. 2, 

2* T ENTR.' ,F12.2,* T CAVITY'/7I, • X-LINIT* , T37, 'BODY COEFFICIENTS*, 

3T74, *1*) 

6 FORNAT(5F14.6,3X,*I») PRA0240 

10 FORNAT (IX, 72 (*-*) ) PRA0250 

12 FORNAT (//14X, 'PARANETERS OF SEGMENTS FOR BODY COLLISIONS • ,T96, ' I*/ 
18I,'X-COORD. TEMP. ALPHA 1 ALPHA2 ALPHA3 SIGNA1 SIGN A2 

2 SIGMA 3 AREAS*, T96,*I*) 

14 FORNAT (4 X, E12.4,7F9.4,E12.4,T96,'I') 

17 FORNAT (///25X, ’ARRAY STORAGE USED*/5X, 16, * * • , 1 016 , T96 , ' I* ) 

18 PORSAT(1H1/17X, 'LENGTH OF CELL IN NEAN-FREE-PATHS * *,F12.4,* BW* 

A ,T76 , • I* 

1/17X, • HEIGHT OF CELL IN NEAN-FREE-PATHS = *,F12.4,* BH»,T76,*I* 

2/16X,' NUMBER OF LI CELLS ALONG F* OW AXIS »*,I13,* NW«,T76,'I* 

3/17X, 'NUMBER CF LI CELLS IN RADIAL DIR. *',113,' NH',T76,'I' 

4/21X,' NUMBER OF LEVELS OF CELL SIZE «',I13,' NL',T76,'I*) 

23 FORHAT(3X, 'NUMBER OF AZIMUTHAL WEDGES WITHIN ',13,* DEGREES =*,IPBA0470 
113,' NWEDG I*/) 


C-17 


V 
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24 FORMAT (16X, 'BASIC TIRE INTERVAL F.‘» COLLISIONS -',113.4,* DTN 

1 I'/8I,*TIRE INTER? AL FOB SA HP II MG FLO* FIELD INFO *',113.4,' DTS 

2 I */24 I, ‘TIRE INTERVAL FOR PRINTING DTP I'/9X, 

3 ' TIRE TO STEADI-STATE CONDITIONS (ASSURED) *',E13.4,' TST I'/ 

4191, 'TIRE AT WHICH FUN IS TERRINATED 113.4,' TLIR I'/) 

25 FORMAT (/5X ,' PRESSURE RATIO (I NSI DE/ENTRANCE) - EITHER TTPE -*,P13.5 
1#' BMP' , T76, ' I ' /6 X, 'DERSITT PATIO (INS IDE/ENTRANCE) - EITHER TTPE 
2»',F13.5,* FHN' ,T76, 'I'/9X, 'FLUX RATIO ( INSI DE/ENTRANCE) - EITHER 
3TTPE «*, E13.5, ' BRE' ,T76, * I* ) 

26 FORMAT (51, • FREE STREAM NUMBER OF MOLECULES - EITHER TIPE ■',I1J # ' 

A I NR I '/9X, • INITIAL NURBER OF MOLECULES - HA XI RU R «',I1J, 

1* LLN I '/9 X, ' HA XI HO R NUMBER OF MOLECULES - EITHER TIPE «' # I13 

2,* HN1 I '/I X, 'MAX NURBER OF MOLECULES IN ANI CELL - EITHER TT 

3PE RNB I*) 

27 FORM AT ( /2 21, » VELOCI TT OF FREE STREAM FLOW *',E13.4,» D',T76,'I'/1 

191, 'SPEED RATIO OF FREE STFEA1 FLOW *',E13.4,» S ', T76, • I '/19I, • M AC 
AH NUMBER OF FREE STREAM FLOW *',E13.4,' H' ,T76 , • I* /I 9X , • SP ECIPIC H 
BEAT RATIO (CALCULATED) *' ,E13. 4,' GAMMA ', T76, *1 '/ 35X,'ANG 

2LF OF ATTACK «',F13.4,» ANGLE I'/ 16 X, 'NUMBER DENSITT OF FREE ST 
3REAR FLOW «',E13.4,' N' ,T76, • I '/19X, 'TERPEPATURE OF FP EE STREAM FL 
40N *', FI 3. 4, ' TP*,T76,*I'/16I,' ROLF FRACTIONS OF FREE STREAM FLOM 
5*',3E13.4,' RNU I ' /16X , * ROLECOLAR HEIGHTS OF SPECIES ABOVE «',3F13 
6.4,* RBA I'/18X, 'INITIAL NUMBERS OF SPECIES ABOVE *',3113,' LL I' 

7 ) 

28 POPS AT ( /10X,' REFERENCE TEMPER ATUPF FOR MOLECULAR DATA *',P13.4,» 

1TPF* ,T90, ' I'/14X, 'CROSS- SECT ION' , 26X, 'TEMP EXPONENT' ,T90, • I* /3 (3X, 
23E12.4, 3X, 3F12.6,T90,' I'/) / 5 X, ' CHI/2- 1 ' , 1 1 X, • BOTATI ON AL PARAMETER 

3 PHI' ,T90, 'I'/J (P12.4,5X, 3P12.6,T90, 'I'/) ) 

29 FORMAT (/9X, \Jf "“A SAVED ON TAPE 9') 

30 FORMAT ( 3* , <EF MOLECULAR SPEED *',E13.4,» V ELK ' ,T 76 , ' I' /2 OX , • SP 

1ECIEF FP It STREAM MOLECULAR SP BEDS' , T76 , ' I ' / 1 4 X , 3E 16 . 6 ,T76 , • l ' /26X 
2, 'REFERENCE MEAN FBFE PATH »',E13.4,« XR FF' , T7 6, • I ' /26 X, • SPECI ES M 
3EAN FREE PATHS' , T76, ' I '/1 4 X, 3E 16 . 6 ,T76 , • I ' /I IX , ' LONGITODIN AL KNUDS 

4 EN NURBER (FRFE STRM. ) »' , E 1 3. 4, • AKN • , T76, ' I •/ 1 3 X, • TB A NS VERS E KNUD 
5SEN NUMBER (FREE STRM. ) * ' , E 1 3 . 4 , • AKT* ,T 76 , ' I ' / 1 IX , ' LO NG ITUD IN A L K 
6NUDSEN NUMBER ( ENTRANCE )*',E13.4,' AKN 1 • , T76 , ' I • / 1 3X , • TR A N SV ERSE 
7 KNODSEN NUMBER ( ENTRANCE )*',E13.4,» AKT 1 ' ,T 76 , ' I'/ 1 1 X, ' LONG ITUD 
8IRAL KNUDSEN NUMBER ( CAVITT )*',E13.4,' AKN2' ,T76, ' I'/l 31,' TRAN 
9SVFRSB KNODSEN NUMBER ( CAVITI )*',E13.4,» A KT 2' ,T 76 , • I ' ) 

9 PPA0690 

PBA0700 

IAPFAY*708*LIHIT (3) • (32^56*LI MIT ( 1) ) ♦ 20*LIHIT ( 2) ♦ LIMIT (4) * (120 ♦V’LPRA 0710 
1 1 HIT (6) ) ♦56*LIHIT(5) ♦LIMIT(8) * (68f96*LIHIT (9) ) ♦2 0*LIHIT(7) ♦224*LIMPR A0720 


ff 

f 

2IT (1 ) 

WRITE (6, 1) MSP 

PRA0730 



IF(NEH) HR ITE (6, 2) NOT 
WRITE (6 # 3) NAME, TITLE, NR EG 

0e ._ PR AO 750 

^OlNAl p a PRA0760 

° F p OOX , " ■ PR AO 770 

PRA0780 



WRITE (6, 4) XSTART, R MB 



DO 100 1*1 ,NFEG 

100 WRITE (6, 6) XLIH(I4 1), (COEPF (J) ,J*1,4) 


• 

WRITE (6, 10) 

PPf.0000 

- 

w 

WRITE (6, 12) 

PRA0810 

i 


DO 110 1*1, ND 

PRA0820 

+ 

i 


110 WRITE(6, 14) XCB (I) ,TB (I) , (ALPHA (J,I) 

,J*1,3), (SIGMA (J,I ) , J s 1, 3) , TCB 


• 
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1 (I) 

WRITE (6, 10) 

WRITE (6 # 17) I ARRAY, (LI HIT (I) , I* 1 , 1 0) 

WRITE (6, 18) BW,BH,NW, NH, NL 
I ET a Z* 180. 

WRITE (6,23) 1ETAZ, NWEDG 

JTS«DTH*ITS _ _ 

DTP*DTH*ITP ORIGINAL PAG- Pj 

A ST*DTH*TST OF POOR QUALITY 

ALIH«DTH*TLIH 
CHT-0.0 

DO 120 J* 1 , HSP 
120 CHT«CHT4CHI (J) •PNU (J) 

GAHNA* (7.«2.*CHT)/(S.»2.*CHT) 

AH*S*SQRT(2./GAHHA) 

WRITE (6, 24) DTH,DTS,DTP,AST, ALIN 
WRITE (6,26) INn,LLH,HNn,RNB 
WRITE (6, 25) RHP,RHN,PHF 

WRITE (6, 27) 0,S, AH, GAHHA, ANGLE, DENE, TP, (RNO (I) , I* 1 , 3) , (RHA(I) , I 
1), (LL(I),I-1,3) 

WPITE (6, 28) TPP, ( (DIR (I,K) ,K*1,3) , (ETA (I,R) , K* 1 , 3) ,1*1,3) , (CHI 
1 (PHI (I , K) ,K*1,3) ,1-1,3) 

DO 210 1*1,3 
VELS(I)*0. 0 
210 XSP(I)*0.0 

DO 220 J*1,(1SP 

VELS (J) *VE LB/SQRT (WTH (J) ) 

XT*0. 0 

do 216 h*i,hsp 

215 XT*YT»RNO (H) *DAH (3 ,H) ♦SQRT (1. ♦WTH (J) /WTH (H) ) 

220 XSP(J) *1.4l4214*XBeF/XT 

WPITE (6, 30) YELR, (VELS (I) ,1*1,3) , IPEP, (XSP (I) , I* 1, 3) , AKN,AKT, 
1AKN1,AK?1, AKN2,AKT2 
IP (SAVE) WRITE (6,29) 

PETOPH 

END 


PRAO05O 


PBA0880 


PBA0940 

PBA0950 

PRA0960 

PBA0970 


PRA0980 


*1,3 


PRA 1040 
PRA1050 
PRA1060 


SOBROOTIHE PBINTB (P N A , HSP, P NB , NH, XLI H, XC , YC, ZC , NB , N) 

INTEGERS NB 

DIHENSION FNB (1) ,V* (1) , XLIh (1) , XC (1) 

DIHENSIOK YC (1) ,ZC (1) , NB (N, 1) 

COHHON /PI RST/NL, N V, NH 

COHBON /TH IPD/P I, NREG,S,SINANG, COSANG, AKN, AKT 

COHHON /PORTH/NBX PRB0070 

I PORHAT (1H1) PRB0080 

! PORHAT (2X,» CELL GEOHETPY PRB0090 

1 '/2X , 'BOX LEVEL POSITION OP CENTER VOLOHE PBB0100 

2INITIAL POPU LATION'/2X , * NUH. ', 12X, 'X',7X,'Y THETA', 12X, • TOT 
3 AL ',' EACH SPECIES ',' CELL# ' ) 

I PORHAT (1 X, 14,15, 3X,2F8. 3, P7. 1 , B 1 2. 3, 2X, 1 4, 2X , 315, 3X, 14) 

► PORHAT (21, ' TOTALS • , El 2. 4 ,8 X, 31 5) 

WRITE (6, 1) PRB0150 

WRITE (6, 2) 

DO 200 1*1, NBX PRB0170 

X*(XC(I)-XLIH(1)) *AKN PBB0180 
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140 

200 


N2«NB (2,1) 


Y-YC (I) *AKT*2.0 
XX«X*NU* 1 
IY»Y*NHO 
H1«NB(1,I) 

N2*0 

IP (NSP.GE. 2) 

H3*0 

IP (NSP.GE. 3) N3*NB(3,I) 

NN«NUN2*N3 

WRITE (6, 3) IX, XT, X, Y,ZC (I) , PNB (I) , NN, H 1 , H2, N3, 1 

CONTI NOE 

NN2*0 

IP (NSP.GE. 2) N N 2 = N N (2) 

M3»0 

IP (NSP.GE. 3) NN3*NN (3) 

WRITE(6,4) PNA,NN(1),NH2,NN3 

RETURN 

END 


original FAUC .3 
0F poor quality 


PBB0370 


PRB0390 

PBB0400 



♦ 


i 



SUBROUTINE CELL (A, B, KW,KH, XO , DEL ANG, N W EDG, XC, YC, ZC , PNB) 

DINENSION XC (1) , YC (1) ,ZC (1) , PNB (1) 

CONHON /THIBD/PI CELL030 

CELL040 

CELL050 

THE PURPOSE OP THIS SUBROUTINE IS TO CELL060 

1. CONPUTE THE VOLUNE OP EACH CELL (ALL 3 POSSIBLE LEVELS) CELL070 

AND STORE THE RESULT IN THE ARRAY CALLED 'PNB'. CELL080 

2. CONPUTE THE X, R, AND THETA COORDINATES OP THE CENTER OP CELL090 

EACH CELL (ALL 3 POSSIBLE LEVELS) AND STORE THE RESULTS INCELL 100 
ABRAYS CALLED *XC», 'YC*, AND *ZC». CELL110 

CELL 120 

CELL130 

1*0 


X*XO-0. 5* A 

PACTOR»DELANG*PI*B*B*A/180. 
DO 110 K*1,KW 
X*X* h 


Y*-.5*B 

DO 110 L*1,KH 

Y»Y*B 


r 




Z*-. 5*DELANG 

DO 110 H*1,NiEDG 

Z*Z+DELANG 

X»I*1 

XC (I) *1 

YC (I) * Y 

ZC (I) =Z 

110 PNB (I) *PACTOR* (2*L-1) 
RETURN 
END 


SUBROUTINE I HPACT ( R H, G 1 , G 2, G 3, ET, El, PHI, CHI , ET A, XN , CIN ) 
CONHON/THI RD/PI 
If (PHI. EQ. 0.) GO TO 20 


CELL360 

CELL370 
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It 
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IF (CHI.EQ.O.) GO TO 20 
DF«PHI*CHI-1. 

DS*PHI* (2.-.5*ETA)-1. 

E«ET*EI 

10 X* R AND (0) ORIGINAL PAC- 

IF (I. EQ. 0.0) GO TO 10 pQOH 

XT* X **DF • ( 1.-X) **DS 
IF (IT. GT. IN) GO TO 15 
Cl H*CI H* XT 

IF (C1M.LT. XH) GO TO 10 
CIM*CIH-XM 

15 ET« (1.-PHI) *ET» (1.-X) *PHI*E 
El* (1.-PHI) *EI*X*PHI*E 
20 GP*SQRT (ET/RR) 

EP*2.*PI*RAND(0) 

CSX*2. *RAN D (0) - 1. 

SSX*SQRT (1.-CSX**2) 

G1*GP*CSX 
G2»GP*SSX*COS (EP) 

G3*GP*SSX* SIN (EP) 

RETURN 

END 

SUBROUTINE GAS (NWEDG, DEL A NG, ND, BTA,C1, DFA, NM , F NB , DB, NB , NBM , N BN , 
IPAD, PA V, PAW, PAX,PAT,PAZ,XLIN,C0EFP,LN,I2,I3,XCB,TB,LARGE, 

2 INN, MNB, DEBUG 1, LCOL, I P, ER ,CHI ,CNG,CMG, I, LB) 

INTEGER* 2 LH (I, 1) , LCOL (1 , 1 ) , L B ( 1 ) , NBM (I , 1 ) , NBN ( 1 ) 

INTEGER*2 NB 
LOGICAL DO HP, DEBOG 1 

DINE NS ION BT A ( 1 ) ,C1 (1) ,DPA (1) , N M ( 1 ) , F N E ( 1 ) ,CHI (1) 

DIMENSION DB (1,1) ,NB (I, 1) , PAU (I, 1) ,PAV (I, 1) ,PAW (I, 1) 

DIMENSION PAX (I, 1) , P AT (I , 1 ) , P AZ ( I, 1 ) , ER ( I, 1) ,COEFF (4) , ILIH ( 1) 
DIMENSION CNG(1) ,CHG (1) , XCB ( 1) , TB ( 1) 

COMMON /FIBST/NL,NW, NH 

COMMON /SECND/BW,BH, RHP, RMN, PMF 

COMMON /TH IPD/PI , N REG, S, SIN A NG, COSANG, AKN, AKT 

COMMON /FOBTH/NBX, PH , X R, D0MP,C9, LL (3) 


THE PURPOSE OF THIS SOBROOTINE IS TO 

1. COMPOTE THE INITIAL VELOCITY OF EACH MOLECOLE. 

THE VELOCITT ARRAYS ARE *PAU*, *PAV*, AND *PAW*. 

2. COMPOTE THE INITIAL POSITION OF EACH MOLECOLE. 

THE POSITION ARRAYS ARE 'PAX', ‘PAT', AND *PAZ*. 

3. CREATE AN ARRAY WHICH STORES THE CELL POPOLATIONS- 
'NB* FOR THE ACTUAL POPULATIONS 

4. CREATE A CROSS-REFERENCING ARRAY (WHOSE CONSTRUCTION IS 
INDICATED BY A COMMENT CARD) CALLED ' LH* . 

5. COMPOTE AN ARRAY WHICH STORES THE NUMBER DENSITY IN EACH 
CELL 


2 FORM AT (/• 
1 //) 

3 FORMAT (/' 


SOMETHING IS WRONG WITH BOX NOMBERING IN GAS • /9I 5, 5E 1 4 . 
SOMETHING WRONG IN CELL VOLUMES IN GA S* /5 X, 51 5, 2E 14 . 5) 


GAS0060 


-GAS0150 
GAS0160 
GAS0170 
GASO 180 
GASO 190 
GASO 20 0 
GAS0210 
GAS0220 
GAS0230 
GAS0250 
GAS0260 
GAS0270 
GAS0280 
GAS0290 
-GAS0300 
5 
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4 FORMAT (' POPULATION EXCEEDED ',13#' IN GAS') 

b p* ( 1.-PHN) 

CP»1.-RNN**2 
» DO 180 NT* 1 , I P 
1*0 

110 N«NO ORiGINAL PAGE til 

IP(N.GT. LL (NT) ) GO T , 180 OF POOR QUALITY 

IP (N.GT. NNN) GO TO 190 
120 P«.001*. 998*RAND (0) 

| IP(BP.NE.O.O) P* (1.-SQRT(1.-CP*P) )/BP 
X S XLIN (1) ♦ . *XR 
R«RN*SQRT (RAND (0) ) 

D~PI*RAND(0) 

PAX (NT,N) *X 
PAT (NT,N)*R*COS(D) 
f, PAZ(HT,N)*B*SIN(D) 

DO 126 J*2,ND 
IF (X.LE. XCB(J) ) GO TO 128 
126 CONTINUE 

WRITE (6, 3) J,ND # NT,LL (NT) ,N, X, XCB (J) 

IF (DUMP) CALL ABEND(14) 

» STOP 

128 TL*TB (J- 1) ♦ (TB (J) -TB (J-1) ) • (X-XCB (J- 1) ) / (ICB (J) -XCB ( J- 1) ) 

130 V = 4. *RAN D (0) 

VV= V*V 

Cl (NT) *Cl (NT) *VV*EXP (1.-VV) 

IF (Cl (NT) . LT. 1.) GO TO 130 
. Cl (NT) *C1 (NT)- 1. 

A= 1 . -2. * R A ND (0) 

B*SQRT ( 1 . - A *A ) 

C*2.*PI*RAND(0) 

¥*V/BTA (NT) *SQRT (TL) 

PAO (NT,N) «V*A 

» PAM (NT,N) =V*B*COS (C) 

PAW (NT, N) =V*B*SIN (C) 

EX=0. 0 

IF (CHI (NT) .LE.-1.) GO TO 136 

135 EX = 9 . • RA ND (0) 

IF (EX.EQ.0.0) GO TO 135 
, IT=EX*»CH1 (NT) *EXP (-EX) 

IF (XT.GE.CNG (NT) ) GO TO 136 
CNG(NT)=CNG(NT) *XT 
IF (C8G (NT) . LT. CNG (NT) ) GOTO 135 
CHG (NT) *CNG (NT) -CNG (NT) 

136 EH (NT, N, =EX*TL 

9 TANG=180. * (1.-D/PI) 

I WDGE= TANG/DE LANG* 1 

IF (IWDGE. GT. NWEDG) I WDGE=NWEDG 

L= X/BW 

IF(L.GE.NW) L=NW-1 
B=R/BH 

IF(N.GE.NH) N = NH- 1 
K=NWEDG* (L*NH*N) *IWDGE 
IF (K.LE. NBX) GO TO 165 

WRITE (6,2) L, N, IWDGE, NW, NH, NWEDG, K, NT, N, X, Y,Z,R ,TANG 


GAS0340 


GAS0370 

GAS0380 

GAS0390 


GAS0400 
GAS04 10 
GAS0420 
GAS0430 
GAS0440 
G A SO 450 
GAS0460 
GAS0470 


GAS0510 


GAS0720 


GAS0780 

GAS0790 
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IF(DUBP) CALL ABEND(II) 

STOP 

165 J«NB (NT, K) *1 
LCOL (BT,N) »0 

IP (J.LE. BNB) GO TO 166 

IP (DE 3UG 1) WRITE (6,4) BT, K, BNB ORIGINAL F 

166 MB (BT,K) »J OF POOR QUALITY 

LB (II) «R 

167 IF (N.LT. LL (NT) ) GO TO 110 
MB (BT) * N 

NBB (BT, 1) *0 
DO 170 N ■ 1 , NBX 
A«NB (BT, N) 

DB (BT, M) «A*DFA (BT) /PNB(N) 

NBN(NT,N*1)*NBN(NT,N) ♦NB(BT,N) 

NBB (K) *NB S (BT, M) 

170 CONTINUE 
NG*NN (BT) 

DO 175 N* 1 , NG 
NQ*LB (N) 

NBN (NQ)*NBN (NQ) *1 
N A = N BN (NQ; 

175 LB (NT, NA) *N 
180 CONTINUE 
RETURN 
190 LA RGE= 1 
RETURN 
END 


GAS0830 
GAS0840 
GAS1 190 

GAS1 240 
GAS 1 250 
GAS1270 


GAS1 310 

GAS 1 330 
GAS1 360 
GAS1 370 


GAS1 380 


GAS1 390 
GAS 1 4 00 
G AS 1 4 1 0 
GAS1420 
GAS 1 430 


SUBROUTINE PLOW ( NV EDG, NNN, LARGE, BT A, C 1 , C7, C8 , E NT , R EB , LCOL, IP,NN, 

1 SN , ST , TE I , PAU, PAY, P A W , P AX , P A Y , P AZ , ER ,CHI ,C NG ,C BG , I , J V, PCOL , VEL , 

2PPY) 

INTEGER* 2 LCOL 

DIMENSION BTA (1) , N B ( 1) , SN (1) , ST ( 1) 

DI BENS ION Cl (1) ,C7 (1) ,C8 (1) , CBG ( 1 ) , PCOL ( 1) , YELK (4) 

DIBENSION PAU (I, 1) ,PAV (I, 1) ,PAW (I, 1) ,PAI (I, 1) , PAT (I, 1) ,PAZ (1,1) 

DIMENSION ENT (3, 1) , PEN (3, 1) ,LCOL (1 , 1) , ER (I, 1) ,CHI ( 1) ,CNG (1) 

DIBENSION VEL (JV, 4,1) ,PPV (JV,4,1) 

COBBON /THIRD/PI PLOOIOO 

COBBON /FOBTH/NBX, RB,XR PLOOIIO 

f LOO 120 

THE PURPOSE Of THIS SUBROUTINE IS TO ADD A NEW BATCH OF MOLECULES FLOO 1 30 
TO THE SAMPLE THROUGH THE UPSTREAM BOUNDARY, PL00140 

PL00150 


DO 370 NT= 1 , IP 


XGO=0. 
E= 1. 


PLO0180 
FLOO 190 


PR AC=PCOL (BT) 

AFG=SN (MT) 

STT=ST (BT) 

TV=1 ./BTA (BT) 

TR= 1 . 

DO 180 NT= 1 , 2 

VM= (SQBT (ARG**2*2. ) ♦ARGJ/2. 
SB=ABAX1 (0.0,YB-4.) 
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SNN«VN»4.-SN 

AN-ENT (NT, NT) ♦ F EN ( NT , NT) 

nB’H Mill f; 

REN(NT,NT)«AN-N OF PQC } t J 

IP(N.EQ.O) GOTO 170 OF POO.» gj» *• 

DO 160 N«1,N 

IF(NN(NT).GE.NNN) GO TO 380 
NH (NT) «NN (NT) *1 
NN X*NN (NT) 

R«RN*SQRT (RAND (0) ) 

D* PI*R AN D ( 0) 

PAY (NT,NNX)*R*COS(D) 

PAZ(NT,NNX)*R*SIN ( D) 

LCOL (NT, NN X) «0 

IF (PRAC. EQ.0.0) GO TO 130 

PF*F AMD (0) 

IF (PF.GT.FPAC) GO TO 130 
KN X* 3 

VELK (4)*0. 0 

IP (CHI (NT) .GT.-1) KNX= 4 
DO 110 K* 1 , KNX 
P= PA ND (0) 

DO 102 J*2,JV 

IF (PPV (J,K,NT) .GT. P) GO TO 105 
! CONTINUE 

VELK (K)*VEL(JV,K,NT) 

GO TO 110 

> VELK (K) = VEL(J- 1, K, NT) ♦ (P-PEV (J-1,K,NT) ) * (VEL (J,K,NT) -VEL (J-1,K, 
1NT) )/ (PPV ( J, K, NT) - PPV ( J- 1 , K, NT) ) 

I CONTINUE 

PAU (NT, NNX) *VELK (1) 

PA V ( NT, NNX) * VELK (2) 

PAH (HT,NHX)*VELK (3) 

ER (NT, NNX) *VELK (4) 

GO TO 160 
I V-SN»RAND{0) *SNN 

Cl (NT) *C 1 (NT) ♦V*EXP (VN**2-V**2*2.*ARG* (V-VN) )/VN 
IP (Cl (NT) . LT.1.) GO TO 130 
Cl (NT) *C 1 (NT) - 1. 


PL00340 

PL00360 

PL00370 

FL00390 


FL00420 

FL00430 


FL00480 

FL00490 


> PAU (NT, NNX) =E*V*TV 
140 V=8.*RAND(0) -4. 

C7 (NT) *C7 (NT) ♦ EXP (-V*V) 

IP (C7(NT) . LT. 1.) GO TO 140 
C7 (NT) *C7 (NT)- 1. 

PA V (NT, NNX) =STT»V*TV 
150 V* 8. *R AND (0) -4. 

C 8 (NT) =C8 (NT) *EXP(-V*V) 

IP (C8 (NT) . LT. 1. ) GOTO 150 
C8 (NT) =C8 ( NT) - 1 . 

PAH (NT, NNX) * V*TV 
X=0.0 

IF (CHI (NT) .LE.-1.) GO TO 156 
i55 X=9. *RAND (0) 

IP (X.LE.0. 0) GO TO 155 
XT=X**CHI (NT) * EXP (-X) 
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FL00510 

FLO0520 

FL00530 

PL00540 

FL00560 

FL00570 

PL00580 

PLO0590 


A 
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IP (XT. GE. CNG (NT) ) GO TO 156 
CNG ( NT) -CNG (NT) »XT 
IT (CNG (NT) .LT.CNG (NT) ) GOTO 155 
CNG (NT) -CNG (NT) -CNG (NT) 

156 ER (NT, NN X) -X*TB 
160 PAX(RT f NHX)*XGO 
170 CONTINUE 
ARG-0.0 
XGO-XR 
E— 1. 

PPAC-0.0 

STT-0.0 

TV-SQRT (TBI)/BTA (NT) 

TR-TBI 

180 CONTINUE 
370 CONTINUE 
RETURN 
38 0 LARGE- 2 
RETURN 
END 


«G».NAtK • 
: po^R ^ 


PL00610 

PL00620 

PL00640 

PLO0650 


PL00660 
PL01 140 
PL01 150 
PL01 160 
FL01 170 
PL01 180 


SUBROUTINE COLIHE (CN,CH,WTN, DB, DBA, NB, NCOL, LCOL, PA U, PA V, PA W, EB , T, 

1LN, NT, 12,1 3, ETA, PHI,CHI,CN0, NP, NBN) 

INTEGER TINE COL0030 

INTEGEB*2 LN(NP,1), LCOL(NP,1) 

INTEGER*2 NBN, NB 

DINENSION CN(3,3,1),CN(3,3,1) , WTN(1) , DB (NP, 1) , DBA (NP, 1) ,NB(NP, 1) 

DINE NS ION NBN ( NP , 1 ) , NCOL (3,1) , T ( N P, N P, 1) , ETA (3 , 1 ) , PHI ( 3, 1) , C HI ( 1 ) 
DINENSION PAD (NP, 1) , PAV (NP, 1) , PAW (NP, 1) , ER (NP, 1) ,CN8 (3, 1) ,NA (2) 

CONNON /POBTH/N BX COL0080 

CONHON /PI PTH/ND, TI NE, DTN COL0090 

COLO 100 

THE PURPOSE OP THIS SUBROUTINE IS TO AD1ANCE THE ELAPSED TINES INCOL0110 
CELLS BY AN ANOUNT APPROXINATEL Y EQUAL TO THE PRE-SELECTED COLLISCOLO 120 
TINE. THERE ARE POUR TINES POR EACH CELL, SAVED IN AN ARRAY C ALLECOLO 130 
•T', CORRESPONDING TO THE POUR TYPES OP R'JLECULAR COLLISIONS WHICCOLOIUO 
CAN OCCUR. TO ADVANCE THE VARIOUS TINES, AN APPROPRIATE NUNEER OPCOL0150 
THE CORRESPONDING NOLECULAR COLLISIONS IS CONPUTED. THE ACTUAL COL0160 

NOLECULES TO COLLIDE ARE SELECTED AT RANDON, AND THEIR VELOCITY VCOL0170 
DIRECTIONS APTER COLLISION ARE SELECTED AT RANDON. COL0180 

COL0190 

AINE=DTN*TINE 
DO 240 NT A- 1 , NT 
DO 230 HTB-1 , NTA 
D = WTN (NTA) ♦ WTN (NTB) 

WA (NTA) - WTN (NTA) /D 
WA (NTB) -WTN (NTB) /D 
BN-WTN (NTA) *WTN (NTB) /D 
CHT-CHI (NTA) *081 (NTB) *2.0 
PHT-PHI (NTA, NTB) 

ETT-ETA (NTA, NTB) 

DO 220 N- 1 , N BX 

IP (T (NTA, NTB, N) .LT.AINE) GOTO 100 
IP (T(NTB,HTA,N) .GE.AINE) GO TO 220 
100 NA = NB(HTA,N)*NB(HTB,N) 
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IP (BTA.EQ. BTB) BA* (NA-NB (BTA, N) ) /2. 

IP (BA. LT. 1) GO TO 220 
KS*0 
*20 KC*0 

CPUT*ELTI HE (0) 

KS*KS» 1 

IP(KS.GT.NA) GO TO 220 
130 KC *KC ♦ 1 

IP (KC. GT. R A) GO TO 220 
t3 5 I* NB (HTA,N) *FA ND (0) ♦ U NBB (HTA, N) 

IP(I.GT.NBfl(HTA,Nt1) ) I* NBB ( HT A , N ♦ 1 ) 

J*LH (HTA , I ) 

14 0 K* HB (BTB, B) • P A B D (0) ♦ 1 ♦ B BB ( BTB # B) 

IP (K.GT. BB B (BTB, B* 1) ) K* BB H ( BTB, B ♦ 1) 

IP(STA.EQ.HTB.AND.I.EQ.K) GO TO 140 

♦ L«LB(HTB,K) 

GH1*WA (HTA) *PAO (HTA,J) ♦ WA (BTB) *PAU (BTB, L) 

GB2*HA (HTA) *PA V (BTA, J) (BTB) *PAV (BTB , L) 

GH3*HA (HTA) *PAW (HTA, J) *WA (BTB) *PAM (BTB, L) 

G1-PAU (HTA,J)-PAU (BTB, L) 

G2*PA V (HTA , J ) - PA V (BTB , L) 

♦ G3*PAW (HTA, J) - PAW (HTB,L) 

GS*G1**2»G2**2^G3**2 
IP(GS.LT. 1 .OE-8) GO TO 130 
ET*RH*GS 

EI*EP (HTA, J) ♦ EP (BTB, L) 

VF=GS** (. 5-ETT/2. ) 

♦ IP (VR.GE.CB (HTA, BTB, 1) ) GO TO 160 
CN (BTA, BTB, 1) =CN (BTA, BTB, 1) ♦VR 
IP (CB (HTA, BTB, 1) . LT.CH (BTA, BTB, 1) ) GOTO 130 
CK (HTA, BTB, 1)*CN (BTA, BTB, 1) -CH (BTA, BTB, 1) 

160 COBTIBOE 

CPOT=ELTIHE(0) 

♦ CALL IBP ACT (PB , G 1 , G2 , G 3 , ET , El , PHT,CHT, ETT, CB (HTA, BTB, 2) ,CB (BTA, BTB 
1,2)) 

165 COBTIBOE 

CPOT=ELTI BE (0) 

I P (PHT. EQ» 0. ) GO TO 175 
X1=0.0 

♦ IP (CHI (HTA) .E0.-1.) GO TO 175 
X1*1.0 

IP (CHI (HTB).EQ.-I.) GO TO 175 
170 X 1*R AN D ( 0) 

IF ((CHI (HTA) .EQ.O.) .ABD. (CHI (BTB) .EQ.O.)) GOTO 175 
XT*X 1**CHI (BTA) * ( 1.-X 1) **CHI (BTB) 

I IP (XT.GT.CB(BTA,BTB,3) ) GOTO 175 
CN (BTA, BTB , 3) = CN (BTA, BTB, 3) ♦XT 
IP (CN (HTA, BTB, 3) . LT.CH (BTA, BTB, 3) ) GOTO 170 
CB (HTA,BTB,3)*CN (BTA ,HTB, 3) -CH (HTA, BTB, 3) 

175 CONTINUE 

C*DBA (HTA , N) 
i D= DBA (BTB, N) 

IP(C.EQ.O.O) C*DB ( HTA, N) 

IP (D. EQ. 0.0) D*DB (BTB, N) 

IP (T (HTA, BTB, N) .GE.AIBE) GO TO 180 


p r. r 

Oh P^ 


i 
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PAU (HTA, J) *GH 1 *H A (HTB) *G1 

PAV(HTA,J) »GH2*HA (HTB) *G2 ORIGIN/ - 

PAN(HTA,J)«GH3*NA(flTB) *G3 OF POOR (. ,.. .1*. 

IP (PHT.GT. 0. ) EB (HTA,J)«Xl*EI 
LCOL (HTA,J)-ULCOL (HTA,J) 

NCOL (NT A , HTB) = NCOL (HTA, HTB) *1 COLO01O 

T (HTA, HTB,N) «T ( HTA , HTB , N) ♦CN8 (HTA, HTB) /NB (HTA,N) /D/VB 
IP (HTA. Etf. STB) GO TO 190 
180 IP (T (HTB, HTA, N) .GE. AIHE) GO TO 210 
190 PAU(HTB,L)»GH1-WA(HTA)*G1 
PA V (HTB, L) «GH2-HA (HTA) *G2 
PA W ( HTB, L) »GH 3-HA (HTA) *G3 
IP (PHT.GT. 0.) ER (HTB,L) * ( 1.-T 1) *EI 
LCOL (HTB , L) * 1 ♦ LCOL (HTB,L) 

NCOL (HTB, HTA) »NCOL (HTB , HTA) * 1 COL0920 

T (HTB, HTA, N) »T (1TB , HTA , N) ♦CH8 (HTB, HTA) /N B (HTB, N) /C/VR 
210 CONTINUE 

IP (T(HTA,HTB,H) . LT. A I HE. OR. T (HTB, HTA , N) .LT.AIHE) GOTO 120 
220 CONTINUE 
230 CONTINUE 
240 CONTINOE 
BETUPN 
END 


SUBROUTINE HOVE (KSWCH, AKN, NH EDG, I STA RT, 1 2 , 1 3 , 1 4 , 15 , DELA NG, 
1BTA,C2,C3, DPA, PL,HTI ,HTF, JNT,KNH, NH, XCB, XLIH ,CTI ,CTR ,CNI, 

2CNB, ALPHA, SIGH A, COEPP, HTS, HTS I , NTS, OTL, UTT, VTS, PA U, P A V, PAH , P AI , 

3 PAT, PAZ, LCOL,TB, I P,ER, CHI , CNG,CHG, I, UTLI,UTTI, VTSI,IPLUI) 
INTEGER* 2 LCOL(I,1) 

INTEGER TST, TI HE 
LOGICAL DU HP 
REAL LAH , H 0, NU 

DIHENSION B?A(1) , C 2 ( 1 ) ,C3(1) ,PL(1) ,HTI (1) 

DI HE NS ION HTR (1) ,TB (1) ,XCB (1) , ALPHA (3, 1) ,SIGHA (3,1) , COEPP (4) 
DIHENSION PAU (I, 1) ,PAV (I, 1) , PAH (I, 1) ,CTI (3, 1) ,CTB (3, 1) 

DIHENSION CNI(3, 1) ,CNR (3,1) ,DPA(1) , J NT H ) , X LI H ( 1 ) , K N H ( 1) ,NH(1) 
DIHENSION HTS (3, 12,1 3) , HTSI ( 3, 1 2, I 3) , NTS (3, 12, 13) 

DIHENSION UTLI (3,12,13) ,UTTI (3,12,13) , /TSI (3,12, 13) 

DIHENSION OTL (3, 12, 1 3) ,OTT ( 3 , 12 , 1 3) , VTS ( 3 , 12 , 1 3) 

DIHENSION PAX (I, 1) , PAT (I, 1) , PAZ (I, 1) 

DIHENSION ER (I, 1) ,CNG(1) , CHG ( 1 ) , CHI ( 1 ) , I PLUX (3,2) 

COHHON /THIRD/PI, NRPG 

COHHON /PORTH/NBX, RH,XR,DUHP 

COHHON /PI PTH/ND, TI E E, DTH, TI, ITS, ITP, TST 

COHHON /S V NTH/LA H, HU, NU,HT,N,J, X I , TI , Z I , TOSE 

N AHELIST/CHECK/TIHE, X ,T,Z,DX,DT,D7.,TLEPT,RADS, RHS, XR 

THE PURPOSE OP THIS SUBROUTINE IS TO ADVANCE THE SPATIAL POSITII 
OP ALL THE HOLECOLES BT AN AHOONT APPROPRIATE TO THEIH CURRENT ’ 
LOCITIES AND THE PRE-SELECTED COLLISION TIHE. 


NA REA = NR EG 
RHS=RH**2 
DO 150 HT* 1 , IP 
N=KNH (HT) 


HOV0290 
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l 


% 


10 H«NO 

TLEPT*DTB 

IP (KSWCH* E J. 1) TLPPT»TLEPT*RAND(0) 

IP (N.GT. NN (BT) ) GOTO 150 
15 LAB-PAU (BT,N) 

BU»PAV (BT # H) 

NU»PAW (BT, N) 

XI*PA I (BT, N) 

TI-PAY (BT, N) 

ZI*PAZ (BT, N) 

DI»TLEPT*LAB 

DY«TLEPT*BU 

DZ«TLEPT*NU 

X«XI*DX 

Y«YI*DT 

Z«ZI*DZ 

RADS«T**2*Z**2 

TOSE*TLEPT 

KS»0 

IP (PADS.GT.FBS) CALL I NTEFS (X , Y, Z, PBS, KS) 
IP (X.GT. XLIN (1) ) GO TO 10 
IPLUX (BT,1)»IPLUX (BT, 1) ♦I 
GO TO 100 

18 IP (X.LT. XLIB (NAPEA) ) GO TO 19 
IPLHX (NT, 2) * I P L 'J X (BT, 2) *1 

GO TO 100 

19 CONTINUE 


HOV0300 
BOT0310 
BO VO 320 
BOT0330 
BO VO 34 0 
BOV0360 
BOV0370 
HOVO30O 
BOV0390 
BOVOUOO 
BOV0410 
BOV0420 
BOV0430 
BOV0440 
BOV0450 
BOV0460 


IP (KS. GT. 0) CALL DR AG ( A K N, NV EDG , X STA BT, I 2 , I 3, I 4 , 15, DEL ANG, JNI, BTA, 
1C2,C3, DFA, PL,HTI,HTP,TB,XCB,CTI, CTF, CN I , CNR, ALP H A, S IGH A, RB , HTS , 
2HTSI ,NTS,UTL,UTT,VTS, LCOL, IP , ER,CHI,CNG,CB5,I, UTLI,UTTI, VTSI) 
IP(Z.GT. 0. 0) GO TO 20 
Z»-Z 


N0=-N0 
20 CONTINUE 
PAX (BT,N) *X 
PAT (BT , N ) * Y 
P AZ (NT , N) * Z 
PAU (BT,N) =LAB 
PAV (BT, N) =NU 
PA W (NT, N) * NU 

IP((X.GT.0.0) .AND. (X.LT.XR) .AND. ( (T**2*Z**2) .LT.RBS) ) GO TO 25 
WRITE (6, CHECK) 

GO TO 100 
25 CONTINUE 

TLEFT*TLEPT-TUSE 
IP(TLEPT.GT.O.O) GO TO 15 


GO TO 10 

100 NZ=NH (BT) BOV0820 

PAX (BT,N) *PA X (BT,NZ) BOV0830 

PAT (NT, N)* PAY (BT,NZ) B0V0840 

PAZ(BT,N)«PAZ(BT,NZ) BOV0850 

PAU (BT, N) *PAU (BT, NZ) HOV0860 

PAV(BT # B) *PAV (BT,NZ) BOVO07O 

PAW (RT,N) »PAW (BT,NZ) BOV0880 

ER(BT,N)*ER(NT,NZ) 
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LCOL (RT, N) -LCOL 
N*N- 1 

NR (RT) -NR (RT)- 1 
GO TO 10 
ISO CONTINUE 
RETURN 
END 


LCOL(HT,NZ) 


ORIGINAL P, 

OF POOR QUALiVi 


ROV0900 

ROV0910 

HOV0920 

ROY0930 

ROY0940 

ROY0950 

ROV0960 


SUBROUTINE ACCUR ( I 2, 1 3 , PN B , N B. PAU, PAY, PAN, ER ,TRP ,TRP , X 
1IP,I,NBN) 

I NTEGER* 2 LH (I, 1) , NBH (I, 1) 

INTEGER* 2 NB 

DIRENSION FNB (1) ,NB (I, 1) ,PAU (I, 1) , PAV (I, 1) ,PAW (I, 1) , TR 
DIRENSION XV (1,1) , YV(I,1) ,ZV(I,1) ,ER (1,1) , TRP (1,1) 
COHRON /FORTH/NBX 

• •• •• ■■ • •• •• •••••••• •• •••••••• mm mm mm mm ^ mm mm mm 

THE PUF POSE OP THIS SUBROUTINE IS TO ACCURULATE TERPE 
VELOCITIES, AND DENSITIES IN VARIOUS ARRAYS FOR DETER 
AVERAGE FLOW FIELD PROPERTIES AFTER STEADY-STATE HAS 

DO 180 N*1,NBX 
DO 110 RT* 1 , 1 P 
IV (HT,N) *0.0 
YV (RT, N) *0.0 
2 V (RT, N) *0.0 
TUP (NT ,N ) * 0. 

TRP (RT,N) *0.0 
TT 1*0. 

TTY*0. 

TTZ*0. 

TTR*0. 0 
H* NB (NT, N) 

IF (R.LT. 1) GO TO 1 10 

0 * 0 . 

V*0. 

H*0. 

DO 100 L* 1 , R 
NA*NBR (RT, N) *L 
J“LH (RT, NA) 

PU*PAU(RT, J) 

PV*PAV (RT, J) 

PH* PAN (RT, J) 

U*U*PU 

V=V*PV 

H«H*PH 

TTR*TTR* ER (RT, J) 

TTX*TTIt PU*PU 
TTY* TTY* PV *PV 
TTZ*TT2*PH*PH 
H= NB (RT, N) 

IV (RT, N) *U/R 
YV (RT, N) * V/R 
ZV (RT, N) =W/R 

TRP (NT, N) * (TTX*TTY*TTZ)/H 
TRP (RT, N) »TTR/R 


V, YV ,ZV, LH, 


P (I. 1) 

ACUR050 

ACUR060 

RATURES, ACUR070 
MINING THE ACUH080 
BEEN REACHEDACUN090 

ACUR100 

ACUR120 

ACUR160 

ACUN170 

ACUR10O 

ACUR190 

ACUR200 

ACUH210 

ACUR220 

ACUR230 

ACUR240 

ACUR2S0 

ACUR260 

ACUR270 

ACUR280 


ACUR300 

ACUR310 

ACUR320 


ACUH390 
ACUN400 
ACU 410 
ACUH420 
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110 CONTINUE 
180 CONTINUE 
RETURN 

END 


ORIGIN.*,!. ; _ 

of poo.? rj v , r 


ACUN430 

ACUN440 

AC0N450 

AC0H460 


SUBROUTINE AfFGE (PMB , DB , DBA , N B , N BT, X V, Y V , Z V , XV A , Y V A , ZV A , TNP, TN PA, 
1 TRP, TRPA , IP, I ) 

INTEGER* 2 NB, NBT 

DINE NS ION FNB(1) , DB(I, 1) ,DBA (I, 1) , NB (I, 1) , NBT (I, 1) ,THP (1,1) 
DIHENSION THPA (1 , 1 ) , X V ( I , 1 ) , X V A ( 1 , 1 ) , Y Y ( I, 1) , Y V A (I , 1 ) , ZV (1 , 1 ) 

DI HENS ION 2V A ( 1 , 1) ,TBP ( I , 1 ) , T R PA ( I, 1 ) 

CONNON /POFTH/NBX 

TRE PURPOSE OP THIS SUBROUTINE IS TO CONPUTE THE AVERAGE PLOK 
FIELD PROPERTIES. 

DO 119 N * 1 , N BX 
DO 109 H T* 1 , 1 P 
A«NBT(NT,N) 

B*NB ( .1 T , N ) 

C«A*B 

NBT (HT, N) *C 
IP (C.LT. 1.) GO TO 100 
DBA (NT, N) « (DBA (NT, N) *A»DB (NT, N) *B)/C 
XVA <BT,N) * (XV A (BT.N) • A ♦ X ? ( NT, N) • B) /C 
TV A (NT,N) * (YVA (NT,N) *A*YV (NT,N) *P)/C 
ZVA (NT,N) « (ZVA (NT, N) *A^ZV (NT, N) *B)/C 
THPA (NT, N) * (THPA (HT,N) *A*TNP (NT,N) *B)/C 
TR PA (NT, N) » (TP PA ( N T , N ) *A*TBP (NT, N) *B) /C 
100 CONTINUE 
110 CONTINUE 
PETURN 
END 

SUBROUTINE DRAG (AKN, NWEDG, XSTABT, 12, 13, 14, 15 , DELA NG, JNT, BTA, 
1C2,C3,DPA,PL,HTI,HTR,TB,XCB,CTI,CTR,CNI,CNF, ALPHA, SIGN A, RN , HTS, 
2HTSI ,NTS,OTL,UTT,VTS, LCOL, IP, ER , CHI, CN G, CHG, I,UTLI,UTTI, VTSI) 
INTEGER* 2 LCOL 

INTEGER TINE,TST 
BEAL LAH,MU,NU, JAY, FAY 

DIHENSION BTA (1) , C 2 ( 1 ) , C 3 ( 1 ) , PL ( 1 ) ,HTI (1) ,CTI(3, 1) , CTR (3,1) 
DIHENSION HTR (1) ,TB(1) ,XCB(1) , ALPHA (3, 1) ,SIGNA (3, 1) 

DIHENSION HTS (3, 12, 1 3) ,HTSI ( 3 , 1 2, 1 3) , NTS ( 3, 1 2, I 3) 

DIHENSION UTL (3,12,13) , UTT (3, 12. 13) , VTS (3,12,1 3) , LCOL (1,1) 
DIHENSION OTLI (3,12,13) ,UTTI (3,12,13) , VTSI (3,12,13) 

DIHENSION CNI (3, 1) ,CNR (3, 1) ,DPA (1) ,JNT (1) 

DIHENSION ER (I, 1) ,CNG (1) ,CHG (1) ,CHI (1) 

COHHON /THIFD/PI 

CONNON /PI PTH/ND, TIHB.DTH.TI, ITS, ITP.TST 
COHHON /SV NTH/LAN , HU,NU,NT,N,J, XCL, YCL, ZCL 


AVG0050 

■AVG0060 

AVG0079 

AVG9C80 

•AVG0090 

AVG0110 

AVG0150 

AVG0170 
AVGOieO 
AVG0190 
AVG0 200 
AVG0210 
AVG0220 
AVG0230 
AVG0240 

AVG0250 

AVG0260 

AVG0270 

AVG9280 


DRG0040 

DRG0050 

DRG0060 


DRG0140 
DBGO 150 
DHG0160 


THE PUPPOSE OP THIS SUBROUTINE IS TO ACCUHULATE THE DRAG AND HEAT 180 
TRANSFER INCPEHENTS ON THE BODY CONTRIBUTED BY EACH NOLECULE WHICH 190 
COLLIDES WITH THE CODY. IN ADDITION, EACH NOLECULE WHICH COLLIDES 200 
WITH THE BODY IS ASSIGNED AN APPROPRIATE NEW VELOCITY (OP REFLECTION) 2 1 0 


C-30 
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A 


PB INCPTON OK IVEFSITT TIHE-SHAHING SlfSTEfl 


KHICH IS OSED TO COKTIMOE ITS SPATIAL TFAKSLATION (IN SUBROUTINE DFAG) 

230 

CALL NORNAl(JAY,KAY,RH) 

JNT (HT) * JNT ( HT) ♦ ! 

TANG»1 80.* AT AN 2 (ZCL,-YCL) /PI 


INDG-TANG/DELA NG* 1 
IP (IKDG.GT.NWEDG) IHDG*NUEDG 
D» (LAN*LAN»NU*NU»NU*MO) 

G-EF (NT, N) 


ORIGINAL r 
OF POOR QUA'JVi 


DBG0310 
DBGO 320 


H«G 


DO 100 H-2.ND 

IPCICL.LT. XCB(H) ) GO TO 110 
100 COKTIMOE 

110 TBX«T9 (H - 1 ) ♦ (TB (H) -TB(R-I) ) • (XCL-XCB (fl — 1 ) ) / (XC B ( N) -XC3 (H- 1 ) ) 
MI«(NU*JAY“NU*KAY) 

YID«m*JAY»MO*KAY 

UID*LAH 

EXPAND (0) 

IP(E.LT.SIGNA(NT,N)) GO TO 115 
VRD—VID 
0 F D* 0 1 0 
WB«HI 
GO TO 125 
115 V*4.*RAND(0) 

C2 (NT) *C2 (NT) ♦ .544331*V*V*V*EXP(1.5-V*V) 

IP (C2 (NT) . LT. 1. ) GO TO 115 
C2 (NT) «C2 (NT) - 1 . 

IP( MTS (HT,N,IWDG) . ME. 0) GO TO 117 
ATF*ALPHA (HT,N) ♦TBX /SIGNA(NT.N) 

GO TO 118 

117 ATR S ALPHA (HT,H) *TBI /SIGH A (NT, H) ♦ (1.- ALPHA (HT.N) /SIGN A (HT.N)) • 
II ( NT, N, I MDG) / NTS (HT.N, IKDG) / ( 3. »CHI (NT) ) 

118 ABP«SQBT (ATR) 

▼ * V* A9R/BTA (HT) 

AA*R AND (0) 

A*SQFT (AA) 

B*SQRT(1.-AA) 

C*2. NPI*RAND(0) 

VR D* V* A 

UB D* V* B*COS (C) 

BR = V*B*SIN (C) 

IP (CHI (HT) . EQ.-1. ) GOTO 125 
122 1=9. *RAN D ( 0) 

IP (X. EQ. 0. 0) GO TO 122 
ITENP* 1. 0 

IP (CHI (HT) .NE. 0. 0) ITENP=X**CHI (HT) 

CNG(HT)*CNG(HT) ♦XTEHP*EXP(-X) 

IP (CNG (HT) .LT.CHG (HT) ) GO TO 122 
124 CONTINUE 


DRG0330 
DBGO 340 
DBG0350 

DBG0370 


DBGO 4 00 
DBG04 10 
DFG0420 
DBGO 4 30 
DRG0440 
DRG0450 
DFG0460 
DFG0470 
DFG0480 
DFG0490 
DBG0500 
DRG0510 
DBG0520 
HTSDBG0530 

DRG0550 

DRG0560 

DFG0570 

DRG0610 

DRG0620 

DBG0630 

DBG0640 

DBG0650 


CNG (NT) *CNG (NT) -CHG (NT) 

IP (CNG (HT) .GE.CNG (NT) ) GO TO 124 
EP (HT.N) *X NATR 
H*ER (HT, N) 

125 OF=OFD 
LAH=OB 
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RU»JAY*VFD-KAY*HF 

BU*KAY*VFP*JAY*HR ' 

IP (TUB. LE.TST) BETURB 
XSZ» (XCl-X STAFT) *AKN 
YS Z* RH* AK B 

B« (UFD*OFD*?FD*VBD*HR*HR) 

UTI»OID*UlD*Hl*HI 
OYI — MIMA Y 
UYP*-WR*KA Y 
PL (ST) “PL (ST) ♦DPA (ST) 

HTI (ST) »HTI (ST) ♦ D*G 
HTR (ST) ■ HTF (ST)-B-H 
CTI ( ST, 1 ) »CTI (ST, 1) ♦01'' 

CTI (ST, 2) -CTI (ST, 2) *UYI 
CT! (ST, 3) »CTI (RT, 3) ♦ (X RZ*UTI - Y SZ*UID) 

CHI (ST, 2) «CHI (ST, 2) ♦ VID*JA Y 
CNI (NT,3)«CMI (ST, 3) ♦XSZ*JAY*VI j 
CTP ( RT, 1 ) CTB (ST, 1J-URD 
CTF (ST,/)»CTP(HT,2)-nYF 
CTF ( KT, 3) «CTF (ST, 3) - (XRZ*OYR- YHZ*nPD) 

CNF (NT, 2) *CNP (RT, 2) -VRD*JA Y 

* CNF (RT,3) -CNF (ST, 3) -YHZ*JAY*VPD 
STS (ST, H, IHDG) * NTS (RT, S, I VDG) *1 
OTLI (ST, H, IHDG) «UTLI ( ST, S , IN DG) ♦ 0 I 0 
UTL (ST, H , I HDG) *UTL (RT, S , I H DG) ♦ (0 1 D-U RD) 

OTTI (ST, N, IHDG) *UTTI (ST, H, IHDG) ♦ HI 
OTT (RT,B, IHDG) *UTT (HT,H,IHDG) ♦ (N I-N B ) 

* VTSI (ST, S, IHDG) * VTSI ( ST, H, I HDG) - VI D 
VTS(ST,R,IHDG)«VTS (RT, R, I HDG) ♦ (VPD-VID) 

HTSI (ST,S,IHDG)«HTSI ( RT, S , IHDG) ♦ D*G 
HTS ( RT, R, I HDG) *HTS (ST, S, I HDG) *D-B*G-H 
FETOBN 
END 

SUBROUTINE I NTEFS (I, Y, 2, RNS, KS) 

FPAL LAH , NU, NO 

CORSON /S V NTH/ LAS, SO,BO,RT, N,J,XI,YI,ZI, . SE 

1 POFSAT (//• SOMETHING IS HHONG IN INTER S* /6E 1 5. 6/4 E 15. 6) 

2 POFSAT (//• TROUBLE IN INTERS - TYRE *• ,E 15. 6/6 El 5. 6/4E15.6) 

* A* HU** 2* NU** 2 
B* (YI*RO*ZI*BO)/A 
C» (FHS-YI**2-ZI**2)/A 
IP (C. LT. 0. 0) C*0.0 
DISCF*B**2*C 

IP (DISCB. GE. 0. 0) GO TO 10 
t HP ITE (6, 1 ) XI, YI,ZI, HU, NO, FSS, A, B,C,DISCF 
STOP 

10 TY BE*SQRT (DISCF) -B 
XP(C.EQ.O.O) TYS E-0. 0 

IP ( (TYHE. LE.TOSE) . AND. (TYRE. GE. 0. 0) ) GOTO 11 
HPITE (6, 2) TYHE,XI,YI,ZI,SU,NU,RHS,A,B,C,DISCB 
IP (TYRE. GT . TOSE) TYSE=T0SE 
IP (TYSE. LT.O.O) TY HE=0. 0 

11 K S = 1 
TOSE=TYHE 


DBG0730 

DFG0740 

DRG0750 

DRG076C 


DBG0790 


DRG0820 

DRG0830 

DRG0840 

DBG0860 

DPG08P0 

DSG0890 

DBG0930 

DRG0920 

DFG0940 

DFG0960 

DFG0970 

DRG0980 


DRG1 170 
DFG1180 
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LV 


II*II ♦ LA H*TYHE 
YI*YI*HU*TYNE 
ZI»ZI*NU*TYHE 
IP(ZI.GT.O.O) GO TO 20 
Z I *- 2 1 
NU«-NU 
20 CONTINOE 
YI».9999*YI 
ZI*. 9999*21 
X*XI 
Y«YI 
2*21 
RETURN 
END 


OKlGlNAl* ^ Li 
OF POOR QUHLkTi 


SOBFOOTINE NORMAL (JAY, NAT # FN) 

REAL LAM, HU, NO, JAY, NAY NORN020 

CONNON /SYNTH/LAH,HU,NU,HT,N, J , XCL, YCL, 2CL NORM040 

JAY*-YCL/RN 
KAY—ZCL/RN 

PETORN NORN 130 

2ND NORN 14 0 

SUBROUTINE PRINT 1 ( DT, COS A NG, SI N A NG, RNA, FRO, DRP , ECP , HTF , P L, HTI, HTR, 

1 CT I,CTB , CN I,CNR) 

DIMENSION DD (3) , HD (2,5) , PP (4,4) ,QQ(4,4) ,RR (4,4) , SS (4,4),TT (4,4) 

DIMENSION UU (4,4) , pi (4,4) ,Ql (4,4) , PI (4,4) , PA (4) , PB (4) , PC (4) 

DIMENSION PL (1) # HTI (1) , HTR (1) ,CTI (3, 1) ,CTR (3,1) ,CNI (3, 1) ,CNR (3,1) 
DIMENSION RMA ( 1) , R NU ( 1 ) 


DATA ND/* I-PO* , • RCE 
1 IPT' , • •/ 


', ' Y-PO' 


RCE 


' , • Z-HO' 


• HE NT * , ' DB AG* , • 


, 'LPT10070 
PT10080 


THE POBPOSE OP THIS 
COEPPICIENTS OP THE 


SUBROOTINE 

BODY. 


POPMATS 


1 POEM AT (//IX, 50 ('*'),' GROSS SURPACE COEPPICIENTS 
10LAR HEIGHT* , 12X, P8. 3, 3 ( 19X, P8. 3) /25X, 

2 'INC. REP. TOT. INC. REP. TOT. 

3REP. TOT. INC. REP. TOT.') 

10 FORMAT ( ' NUMBER PLUX ', 4(F9.3,18X)) 

12 PORMAT(1X,2A4,2X, 'SHEAR • , 4 ( 3P8. 3, 3X) ) 

14 FORMAT(11X,' PRESSURE • , 4 (3P8 . 3, 3 X) ) 

16 FORMAT (1 IX, 'TOTAL • , 4 (3P8. ’, 3X) /) 

18 FORMAT ( • HEAT TR AN SP fa ' , 7X, 4 ( 3P8. 3 , 3 X) /) 


F M R* 0 . 0 


PT10090 

IS TO PRINT OUT THE GROSS SURFACE PT10100 

PT 10 1 10 

PT 10 1 30 
PT10140 
PT10150 
PT 10 160 
PT10170 
PT10180 

• ,50 ( ' *') /• HOLEC 


INC. 


PT10280 
'PT 10290 
PT10300 
PT 10 3 10 


C-33 


w \ 


GKBINT AUG82 


PRINCETON UNIVERSITY TINE-SHARING SYSTEN 


DO SO NT * 1*3 ORIG'N 

DD (NT) *PNA (NT) *PNU (NT) •DFF/DT ZL I 

50 BNP*BNB^BNA (NT) *FNU (NT) W POOR QUALilY 

HFITE (6, 1) (PNA (NT) ,HT«1,3) ,FNF 
PF*FL(1) *FCF/DT 
QF*Fl(2) •FCP/DT 
RF*FL ( 3) •FCF/DT 
SF«PF*QF^F F 

. HFITE (6, 10) PF,QF,8F,SF 
DO 200 1*1,3 
PP(4,I)*0.0 
QQ (4,I)*0. 0 
FP (4,1) *0. 0 
SS (4, I) *0. 0 
TT (4,I)*0.0 
UU (4 , I) * 0. 0 
PI (4 , 1 ) *0. 0 
Q 1 (4,1) *0.0 
R 1 (4 , 1 ) *0. 0 
DO 150 HT*1,3 

PP (NT, I) *CTI (NT, I) •DD(NT)/FNP 
QQ (NT, I) *CTF ( NT, I ) *DD ( NT) /PH B 
SS (NT, I) *CNI (NT, I) *DD (NT)/PNP 
TT (NT, I) *CNF (NT, I) *DD ( NT) /FNF 
PI (NT, I) *PP(ST,I) ♦ SSfNT,!) 

Q 1 (NT,I)*QQ(8T,I) ♦ TT ( NT, I ) 

RP (NT, I) *PP(HT,I) ♦ QQ (NT, I) 

UU (HT,I)*SS(HT,I)4TT(NT,I) 

FI (NT, I) *P1 (NT, I) ♦ Q 1 (NT, I) 

PP (4,1) = PP (4,1) *PP (NT, I) 

QQ (H , I) *QQ (4,1) «QQ (NT, I) 

BF (4 , 1 ) *RR (4,1) ^BR (NT, I) 

SS (4,1) *SS (4,1) ♦SS (NT, I) 

TT (4,1) =TT (4,1) ♦ TT (NT, I) 

UU (4,1) =UU (4,1) ♦UU (NT, I) 

PI (4, I) = P 1 (4,1) ^P1 (NT, I) 

Q1 (“,I)*Ql (4 , I ) ♦ Q 1 (NT, I) 

FI (4,I) = F1 (4,1) ♦Rl (NT, I) 

150 CONTINUE 

HBITE (6, 12) (HD(J,I),J«1,2) , (PP (K, I) , QQ (K, I) , RR (K,I),K*1,4) 
HFITE (6, 14) (SS (K,I) ,TT (K,I) ,UU (K,I) ,K*1,4) 

HPITE(6, 16) (PI (K,I) ,Q1 (K,I),R1 (K,I),K=1,4) 

200 CONTINUE 
A A*COSANG 
BB*SINANG 

9 DO 300 1*4,5 

DO 250 K= 1 , 4 

PP (K,4)*AA*PP (K, 1) ♦BB*PP ( K , 2) 

QQ(K#H)=AA*QQ(K,1) ♦BB*QQ (K , 2) 

BR (K,4) = AA*RR (K, 1) ♦BB*FR ( K , 2 ) 

SS (K,4) =A A *SS (K, 1) ♦BB*SS (K, 2) 

• TT (K,4) =AA*TT (K, 1) ♦BB*TT(K,2) 

UU (K,4) = AA*UU (K, 1) ♦BB*UU (K,2) 

Pi (K,4) =AA*P1 (K, 1) ♦BB*P1 (K,2) 

Q1 (K , 4) *AA *Q 1 (K, 1) ♦BB*Q1 (K,2) 


PT10400 


PT 10460 
PT10470 
PT10480 
PT 10490 


PT10630 
PT 10640 
PT 1 0650 
PT 1 066 0 

PT 10680 
PT 10690 
PT10700 
PT 1 07 1 0 
PT 10720 
PT10730 
PT10740 
PT10750 
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250 R 1 (K,4) *AA *R1 (K, 1) ♦BB*R1 (K,2) 

NR ITE (6, 12) (ND(J,I) , J* 1,2) , (PP (K,4) , QQ (K,4) , BR (K,4) ,K«1,4) 
WRITE (6, 14) (SS (K,4) , TT (K # 4) , OU (K, 4) , K« 1, 4) 

WRITE (6, 16) (PI (K, 4) , Q 1 (K,4) ,R1 (K.4),K«1,4) 

AA*-SINANG 
BB-COSAEG 
300 CONTINUE 
HD-HTP/DT 
PA (4 ) *0. 0 

PB (4 ) - 0. 0 ORIGINAL PACE 

PC (4) *0.0 OF POOR QUALITY 

DO 400 HT* 1,3 

PA (MT) *HTI («T) *RH A (RT) • RNU (RT) ♦HD/RHR 
PB (.RT) *HTR (RT) •PRA (HT) *RNU (RT) *HD/RRR 
PC (HT) * PA (RT) iPD (RT) 

PA (4 ) * PA (4 ) ♦ PA (RT) 

PB (4 ) * PB (4) *PB (HT) 

PC (4) «PC (4) *PC (RT) 

400 CONTINUE 

WRITE (6, 18) (PA (I) ,PB(I) ,PC(I) ,1*1,4) 

PETUPN 

END 


PT 10760 


PT10800 
PT1O01O 
PT10820 
PT 10 830 


PT10950 
PT 10960 


SUBROUTINE PRINT2 (AKN, XSTAPT, DT, FNU, RN A, DR P, FCF, HTP, UTLI,UTTI, VTSI 
1,HTSI,DELANG,NKEDG,XS,XCB,YCB,HTS,NTS,UTL, UTT, VTS, 12,13, IP) 

DIHENSION RRA (1) ,RNU (1) ,XS (1) , XCB (1) ,ICB(1) 

DIRLNSION HTS (3,12,13) , NTS (3, 12, 13) , UT L (3, 12, 1 3) 

DIHENSION UTT (3, 1 2, 1 3) , VTS (3, 12, I 3) , UTLI (3, 12, 13) , UTTI (3,12,13) 

DIHENSION VTSI (3,12,13) ,HTSI (3,12,13) 

COHRON /FIFTH/ND PT20060 

PT20070 

THE PURPOSE OP THIS SUBROUTINE IS TO PRINT OUT THE DISTRIBUTION PT20080 

ON SURFACE OF THE SURFACE COEFFICIENTS PT20090 

— — _ — PT20100 

PT20110 

PT20120 

PT20130 

FORRATS PT20140 

PT20150 

PT20160 

8 FORRAT(//1X,45(**')#' DISTRIBUTION ON SURFACE * , 45 (• •• ) /71 X, 'INC. 

1 TOT. INC. TOT. INC. TOT. */11X,*SEGRENT GEONETRT', 

2 14X, ' HOL. ROLE SARP NUH . SKIN SKIN PRES- PRES- 
3 HEAT HEAT'/' NO. CENTER DELI CENTER DELANG • , 4X, ' WGHT . F 
4RACT. • , 10X, 

5 'FLUX FRCTN FRCTN SURE SURE TRNSF TR NS F* ) 

10 FOP RAT (IX, I3,P8.3, P7. 3 , P9. 3, P8. 3 , 1 X, 2P8. 4, 16, 7 F8 . 4 ) 

11 FORRAT (37X,F8. 4,* 1. 0000 ' , 1 6, 7P8. 4) 

PT20230 

PT20250 

PT20260 

RHR=0.0 
DO 50 HT* 1 , I P 
50 RHR=RHR*RHA (HT) *RNU (RT) 
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t 


I 




n 





K 







WRITE (b, 6) 

I«0 

DO 110 N*2,ND 

DTY*DT*YCB (NJ/100. OR'nptr * 

P* IS (N) 0h 

Q*2. • ( (XCB (N) -X START) *AKN-XS (N) ) 

J* 0 

R*-.5*DELA NG 

PRLT*f CP/ (DTY*DELANG) 

QHLT*DRP/(DTY*DELANG) 

SHLT*HTF/(CTY*DELANG) 

DO 100 K* 1 , NWEDG 

R=R*DELA NG 

X«I*1 

J*J*1 

H3*0 

P3*0 . 0 

03*0.0 

Q4*0. 0 

R3*0.0 

R4*0. 0 

S3*0. 0 

S4*0. 0 

DO 90 HT* 1 , 1 P 
H 1 = NTS (HT, N, J) 

H3*H3*H1 

P1*NTS (HT, N,J) *P HLT*R NU (HT) 

P3=P3*P1 

Ql=SQRT(OTLI (HT, N, J) **2*UTTI (AT, N,J) **2) *RNU (HT) *RHA (HT) ♦QHLT/RHR 
Q2=SQRT( UTL (HT, N, J) **2 ♦ UTT(HT,N,J) **2) *RNU (HT) ♦RHA (HT) *QNLT/RHR 
Q3=Q3*Q1 
Q4-Q4»Q2 

R 1* VTSI ( RT, N, J) *BNU (HT) *RHA (HT) •QHLT/RHR 
R2= VTS ( HT , N, J) *RNU (HT) *RHA (HT) • QHLT/RHR 
S1 = HTSI (HT, N, J) *RNU (HT) *RMA (HT) *SHLT/R HR 
S2= HTS ( HT , N, J) •RNU (HT) *RH A (HT) *SHLT/RHR 
R3=R 3 ♦ R 1 
R4*RU4R2 
S 3=S 3*S 1 
S4=S«»S2 

9 0 WRITE (6, 10)I,P,Q,R,DELANG,RHA (HT) , RNU (RT) , fl 1 , P 1 , Q1 , Q2, R 1 , R 2, SI , S 2 
WRITE (6 # 11) RHR,H3 # P3,Q3,Q4,R3,R4,S3,S4 
100 CONTINUE 
110 CONTINUE 
RETURN 
END 

SUBROUTINE PRINT4 ( HS P, CHI , RNU, I , TRP, EDN, WTH, DB, N S, TH P, X V , 
1YV,ZV,KS,NB,XC, YC, ZC) 

INTEGER* 2 NB , NS 

DIHENSION PDN (1) , RNU (1) , CHI ( 1 ) . WTH ( 1) ,THP (I, 1) ,TRP (I , 1 ) 

DI PENSION DB (I, 1) , NB (I, 1) ,XV (I, 1) ,YV (I, 1) ,ZV (I, 1) ,DBT(3) ,NS (I, 1) 
DIHENSION XC (1) , YC (1) ,ZC (1) 

COHHON /SECND/BW, BH, RHP, RAN, RAF 
COHHOM /PORTH/NBX, Rfl,XR 


PT2O20O 

PT20320 

PT20330 

PT20340 

PT20350 

PT20380 


PT20490 

PT20500 


PT20660 

PT20670 

PT20680 

PT20690 


r 
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THE PUBPOSE OP THIS SUBROUTINE IS TO PPINT OUT THE INSTANTANBOUS 
PLOW-PI ELD PROPERTIES. 


PORNATS 


1 PORN AT (//II, 45 ('•'),' INSTANTANEOUS PLOW PI ELD INFORMATION ',45('* 
1 ') ) 

2 POFMAT(/2X, 'HORIZONTAL N UMBER*', 13, 3X, 'VERTICAL NUMB ER * • , I 3, 3X , • HO 
1RIZONTAL POSITION*', F8. 5, 3X , ' RADIAL POSITION *' , P8. 5/2X, ' BOX# 
2ANGLE S A HP DENSITY NACH NO X VEL. Y VEL. Z VEL. T (KIN) T(RO 
3T) TEMP. 14X, 'HOLE FRACTIONS') 

3 PORMAT {//IX, 46 (•♦•), • ACCUMULATED PLOW FIELD INFORMATION ', 46 ('*') 

D 

4 POFM AT (IX, I4,E11.3,I6,0P8.3,3X,3E11.3) 


PT50060 
PT50070 
PT500R0 
PT50090 
PT50100 
PT50110 
PT50120 
PT50 1 30 
PT50140 
PT50150 
PT50160 
PT50170 


XP(KS.EQ.O) WRITE (6, 1 ) 

IP (KS.K'E.O) WRITE (6, 3) 

DO 40 NT* 1,3 
40 DBT (NT) *0.0 

PDA *0 . JKKj 

CHT*0. 0F 

DO 50 HT*1 , MSP 
CHT*CHT*CHI (HT) •FMO(MT) 

50 PDA=FDA*PDN(HT) •WTH(MT) 

YCT* 0. 0 
XC T= 0 . 0 

DO 110 N* 1 , NBX 

IP ( (XC (N) . EQ. ICT) . AND. (YC (N) .EQ.YCT) ) GO TO 52 
XCT* XC (N) 

YCT* YC (N) 

XXT* XCT/XR 
YYT* YCT/RH 
I XC* XCT/B W ♦ 1 
I YC* YCT/BH ♦ 1 
WR ITE (6,2) IXC,IYC,XXT,YYT 
52 ZCT=ZC (N) 

NSAMP*0 

DBA*0. 

X Vfl* 0. 

YVM*0. 

ZVM=0. 

TMPM=0. 

TRPM*0. 

E*0. 

F= 0 . 

DO 100 HT* 1 , MSP 
NSAHP=NSAHP*NS (HT, N) 
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PT50220 

'PT50230 

PT50240 

PT50250 
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ORIGINAL P s 

Oh | 


100 

t 


55 


60 


XVN* XV H* XV (HT,N) *RNU (NT) • NTH ( NT) • N B ( HT , N ) 

YVH=YVH*YV (HT, N) ♦RNU <HT) • WTH (HT) *NB (NT, N) 

ZVH=ZVH*ZV (HT, N) *8NU (NT) •NTH (NT) *NB(HT,N) 

EE A* DBA»DB (HT, N) *WTH (HT) 

THPN *THPN* WTH (HT) *RNU (HT) *THP (HT, N) *NB (HT, N) 

TR PH*T FPH ♦ RNU (HT) *NB (HT, N) *TPP (ST,N) 

E*E* WTH (NT) *RNU (NT) • NB (NT, N) 

P* P» F NU (HT) *NB (HT, N) 

DBA* DBA/PDA 

IP (E.EQ.0.0) GO TO 55 

XVH*XVH/E 

YVH* Y VH/E 

Z VH*ZVN/E 

VS*XVH**2* YVH**2*ZVH**2 

TNPN*THPN/E-VS 

TRPM*TBPH/P 

CONTINUE 

TTH* (THPH + TRPH)/ (2.5*CHT) 

THPN*THPN/1. 5 

IP (CHT.NE.-1.) TRPN*TRPH/(1.*CHT) 

AHS*S3BT(VS) 

IP (TTH.GT. 0.) AHS*SQRT((5.*2.*CHT) *VS/(TTH* (3. 5*CHT) )) 
CCZ=COS(ZCT/57. 29578) 

SCZ = SQFT (1.-CCZ**2) 

R V H= Z V H* SC Z- Y VH *CC Z 
TVfl*YVfl*SCZ< Z V N*CC Z 
DO 60 HT* 1 , HSP 
DBT (HT) *RNU (HT) *NB (NT, N) 

IP (P.NE.O.) DBT (HT) *DBT(HT) /P 
CONTINUE 

N,ZCT,HSAHP,DBA, A HS, X VH, E VH , T VH, THPH, TRPN ,TTH , (DBT (J) , 


PT50470 

PT50480 

PT50490 


WRITE (6,4) 

1J* 1,3) 

J10 CONTINUE 
RETURN 
END 

:ntry 

CONTPL NANE='INTE' ,'RNAL* ,TITLE=' PAR' , • ABOL' , • A AT',' 95K','H H','ON. ', 

DEBUG*. P. , . P. ,. T. , NEW*. P. , S A VE* . T. , ICOP Y=0, REDO* . T. SEND 
JIHES DTN*.005,ITS*6,ITP=6,TST=2,TLIfl*12 SEND 

TLOREF LLH*2000,HNH = 5000,HNB=150, HSP* 1, NET=0, U=748 5. 9, ANGL E= 28. , RN U* 1 . , 2*0. , 
PHA*28. 94,0. , 0. ,TP= 1 95. 5 1 , DEN P*2 . 52E* 19 SEND 
HOLEC TRP=1000,DIR*3.5E-19,ETA = . 1 04 , PH 1 = 0. 0, CHI*- 1 . , ACR*. 0 0 1 SEND 
SHAPES 9ODY=0. 0, 1000. ,. 00235 SEND 

BODY*. 0025, 555. ,0.0, 2*1. 0 SEND 
BODY*. 0050, 345. ,0.0, 2*1.0 
BODY*. 0 100, 300. ,0.0, 2* 1.0 
BODY*. 0200, 300. ,0.0, 2* 1.0 
BODY*. 0 300, 300. ,0.0, 2* 1.0 
BODY*. 0400, 300. ,0.0, 2* 1.0 
BODY*. 0 500, 300. ,0.0,2* 1.0 
-SHAPES BODY*. 0600, 300., 0.0, 2*1.0 
BODY*. 0700, 300. ,0.0, 2*1.0 
BODY*. 0800, 300. ,0.0, 2* 1.0 
BODY*. 0 87 0, 300. , 1.0,2* 1.0 


SHAPES 

shapes 

* HAPES 
SHAPES 
SHAPES 
SHAPES 
SHAPES 
>H APES 

•Shapes 

shapes 

SHAPES 


SEND 

SEND 

SEND 

SEND 

SEND 

SEND 

SEND 

SEND 

SEND 

SEND 


GEOH NWEDG=2,NW=20,NH=3, SEND 
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A 


PRINCETON ONIVEPSITT TINE-SHABING STSTE8 


ilNCOPL PLOXIN-2. 14 29, RCOl» 1 . 0 , R(1 P» 0. 3, JV «22, K8X« 3 6END 

JINOUT v ARG«O., 1 . # 2. # 3. # «. # 5.,6. # 7. # 0 ., 9 . 4f 1O. # 11. # 12. # 13. # 14..15. # 16. # 17. # 18. # 
.815, .84 5, .872, .900, .922, .951, .975, .988, .996, 1.00, 6 END 

ilNOOT VABG--20 ; ,-19.,-17.,-15 :# -13. # -11. / -9. # -7.,-5.,-3.,-1. # 1.,3.,5.,7.,9., 
11. , U. , 15. , 17. ,19., CO RV«4*0.,. 003, .013, .036, .084, .149, .250, .4 06, .611, .762. 

• 871,. 932,. 962,. 984, .999, .999, 3*1.0, CIND 

JIJOOT VAPG«-20. # -19. # -1 7 w -15.,-1 3 . # .11.,-9.,.7. # .5.,-3. # -1..1. # 3.,5.,7.,9. # 
11.i,13. # 15. # 17. # 19. CURV*4*0. 0,. 003, .013, .036, 0 84 , .149, .2 50, .406, .611, .76 2. 

. 871 ,. 9 32, . 962,. 984, .995,. 999, 3* 1. 0, SEND 
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